Imports System
Imports Microsoft.VisualBasic
Module MainClass
Sub Main( )
Dim lNumber As Long = 9999999
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