Round Numbers

'Insert this code to your form:

Function Round(nValue As Double, nDigits As Integer) As Double
Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function

Private Sub Form_Load()
'Replace '19.8455' with the number you want to round, replace '2' with the number of
'digits after the point that the rounded numbr will have.
MsgBox Round(19.8455, 2)
End Sub