VBAで例外をcatchする書き方_1