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