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