Hi Ger,
tried it, not working.
Changed OEM to User ... no difference.
Here it is :
DROInteger=CStr(GetUserDro(1107))
Length = Len(DROInteger)
For X = 1 To Length Step 1
lstring=Left(DROInteger,X)
If Right(lstring,1) = "." Then
NewLength = x-1
Exit For
End If
Next X
WholeNo=CInt(Left(DROInteger, NewLength))
SetUserDRO(1106)
Getting "ERROR on line: 24 - Argument not optional"