VB.Net/Language Basics/Overflow

Demonstrating overflows with and without checking

Imports System
Public Class MainClass
   Shared Sub Main()
      Try
         Dim number1 As Integer = Int32.MaxValue " 2,147,483,647
         Dim number2 As Integer = Int32.MaxValue " 2,147,483,647
         Dim sum As Integer = 0
         " output numbers
         Console.WriteLine("number1: {0}" & vbCrLf & _
            "number2: {1}", number1, number2)
         Console.WriteLine(vbCrLf & _
            "Sum integers in checked context:")
         sum = number1 + number2 " compute sum
         Console.WriteLine(vbCrLf & _
            "Sum after operation: {0}", sum)
         " catch overflow exception
      Catch overflowExceptionParameter As OverflowException
         Console.WriteLine(overflowExceptionParameter.ToString())
      End Try
   End Sub " Main
End Class