RosettaCodeData/Task/Integer-overflow/Visual-Basic/integer-overflow-3.vb

    i=0
    On Error GoTo overflow
    i = 2147483647 + 1
    ...
overflow:
    Debug.Print "Error: " & Err.Description      '-> Error: Overflow