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 Byte: {0}", CByte(iInteger))
End Sub
End Module
Unhandled Exception: System.OverflowException: Arithmetic operation resulted in an overflow.
at Tester.Main()