Development VB.Net

Module Example
   Public Sub Main()
    Dim doubleVal As Double = 123123.123123
    Dim intVal As Integer = 0
    Try
        intVal = System.Convert.ToInt32(doubleVal)
        System.Console.WriteLine("{0} as an Integer is: {1}", _
                                  doubleVal, intVal)
    Catch exception As System.OverflowException
        System.Console.WriteLine("Overflow in Double-to-Byte conversion.")
    End Try
    doubleVal = System.Convert.ToDouble(intVal)
    System.Console.WriteLine("{0} as a Double is: {1}",intVal, doubleVal)
   End Sub
End Module