Sub Main()
Dim d1, d2, d3 As Double
Dim i1, i2, i3 As Byte
Dim dec1 As Decimal
Dim int1 As Integer
dec1 = 15.27
int1 = 32000
d1 = 23.4567
d2 = 14.01
d3 = 0.003456
i1 = 254
i2 = 37
i3 = 64
' 23.456700 six digit right of decimal point
Console.WriteLine("F6 " + d1.ToString("F6"))
' 14.0100 four digits right of dec. point
Console.WriteLine("F4 " + d2.ToString("F4"))
Console.WriteLine("C format " + dec1.ToString("C"))' $15.27
Console.WriteLine("D4 " + int1.ToString("D7")) ' 0032000
' 00000254 leading zeros 8 digits
Console.WriteLine("D8 " + i1.ToString("D8"))
' four digits hex w/leading zeros
Console.WriteLine("X4 " + i2.ToString("X4"))
' eight digits hex with leading zeros
Console.WriteLine("X8 " + i3.ToString("X8"))
End Sub