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