Imports System
Imports Microsoft.VisualBasic
Module MainClass
Sub Main( )
Dim dNumber As Double
dNumber = 23.15
Try
Dim iNumber As Integer
iNumber = System.Convert.ToInt32(dNumber)
Catch exp As System.OverflowException
System.Console.WriteLine("Overflow in double to int conversion.")
End Try
End Sub
End Module