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 Long: {0}", CLng(iInteger) * CLng(iInteger))
End Sub
End Module
Convert to a Long: 27878400