Math.Round (Double) rounds a double-precision floating-point value to the nearest integral value.
Module Example Public Sub Main() Dim value As Double = 11.1 value = RoundValueAndAdd(value) End Sub Private Function RoundValueAndAdd(value As Double) As Double Console.WriteLine("{0} --> {1}", value, Math.Round(value)) Return value + .1 End Function End Module