Module Example Public Sub Main() Dim lNumber As Long = 9999999999 Try Dim number1 As Integer = CInt(lNumber)
Console.WriteLine(number1) Catch e As OverflowException
Console.WriteLine("{0} is out of range of an Int32.", lNumber) End Try End Sub End Module