i=0
    On Error Resume Next
    i = 2147483647 + 1
    Debug.Print i                    'i=0