Module Module1 Sub Main() Dim Value As Short = 32767 Value = Value + 1 End SubEnd Module Unhandled Exception: System.OverflowException: Arithmetic operation resulted in an overflow. at Module1.Main()