On Error GoTo 0
    i = 2147483647 + 1               'Run-time error '6' : Overflow
    Debug.Print i