Imports System
Public Module Module1
Public Sub Main()
Dim n As Single = 6.1
Dim s As String = n.ToString()
Console.WriteLine("VB " + s)
n = 6.5
s = n.ToString()
Console.WriteLine("VB " + s)
n = 6.7
s = n.ToString()
Console.WriteLine("VB " + s)
End Sub
End Module
' run:
'
' VB 6.1
' VB 6.5
' VB 6.7
'