Try this code:-

Private Sub rounder(ByVal number As Double)
Dim place As Integer
If InStr(number, ".") <> 0 Then
place = InStr(number, ".")
number = Left(number, place)
number = number + 1
MsgBox number
Else
End If


Glenn Harwood
End Sub