Convert Long to Integer
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