Module Tester Public Sub Main() Dim iInteger As Integer = 5280 Dim lLong As Long Dim bytByte As Byte Dim sngSingle As Single Dim dblDouble As Double Dim decDecimal As Decimal
Console.WriteLine("Convert to a Double: {0}", CDbl(iInteger) / 6.123) End Sub