Imports System.Globalization
Module Example
Public Sub Main()
Dim dbl2 As Double = 99999.997
Try
Dim number2 As Integer = CInt(dbl2)
Console.WriteLine(number2)
Catch e As OverflowException
Console.WriteLine("{0} is out of range of an Int32.", dbl2)
End Try
End Sub
End Module