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
End Module
Convert to a Double: 862.322390984811