Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim n As Double
n = 12
n /= 7
Console.WriteLine("Without formatting: " & n)
' formatted string
Dim s As String
s = String.Format("{0:n3}", n)
Console.WriteLine("With formatting: " & s)
End Sub
End Class