Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Console.WriteLine(Math.Ceiling(199.183))
Console.WriteLine(RoundUp(199.183, 2))
End Sub
Public Shared Function RoundUp(ByVal d As Double, ByVal places As Integer) As Double
Dim multiplier As Double = Math.Pow(10, Convert.ToDouble(places))
Return Math.Ceiling(d * multiplier) / multiplier
End Function
End Class
' run:
'
' 200
' 199.19
'