Round Function

The Round function rounds a given number to a specified number of decimal places
Dim MyValue, MyReturn
MyValue = 524324.899
MyReturn = Round(MyValue, 1)
MsgBox MyReturn