Short Overflow

Module Module1

    Sub Main()
        Dim Value As Short = 32767
        Value = Value + 1
    End Sub

End Module