Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim d As Double = 199.123
Dim rounded As String = String.Format("{0:0.00}", Math.Round(d, 2))
Console.WriteLine(rounded)
d = 199.183
rounded = String.Format("{0:0.00}", Math.Round(d, 2))
Console.WriteLine(rounded)
End Sub
End Class
' run:
'
' 199.12
' 199.18
'