Class Sample
Public Shared Sub Main()
Dim dbl2 As Double = 2010.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 Class