RosettaCodeData/Task/Integer-overflow/Visual-Basic-.NET/integer-overflow-14.visual

        Dim i As Integer '32-bit signed integer
        Try
            i = -2147483647 : i = -(i - 1)
            Debug.Print(i)
        Catch ex As Exception
            Debug.Print("Exception raised : " & ex.Message)
        End Try