Module Example
Public Sub Main()
Dim doubleVal As Double = 123.123
Dim singleVal As Single = 0
singleVal = System.Convert.ToSingle(doubleVal)
System.Console.WriteLine("{0} as a Single is {1}",doubleVal, singleVal)
doubleVal = System.Convert.ToDouble(singleVal)
System.Console.WriteLine("{0} as a Double is: {1}",singleVal, doubleVal)
End Sub
End Module