回答編集履歴
1
コード末にOn Error Goto 0を追加
    
        answer	
    CHANGED
    
    | @@ -16,6 +16,8 @@ | |
| 16 16 | 
             
                call MyError
         | 
| 17 17 | 
             
                Err.Clear
         | 
| 18 18 | 
             
            End If
         | 
| 19 | 
            +
             | 
| 20 | 
            +
            On Error Goto 0 
         | 
| 19 21 | 
             
            ```
         | 
| 20 22 |  | 
| 21 23 | 
             
            ちなみに今のコードでMyErrorを2回呼んでもaは2にならないと思いますが
         | 
