Dim nb, nbresult As Double
Dim p As Integer
Dim snb As String

nb = 1.2398765
snb = CStr(nb)
p = InStr(1, snb, ".")'     
If p = 0 Then '    
  nbresult = nb 
Else
  If Len(Mid(snb, p)) >= 3 Then'       
     nbresult = Left(snb, p - 1) +snb.Substring(p - 1, 3)
  Else
     nbresult = nb
  End If
End If
instr :                        
      1   
