・サブプロシージャ Sub aaa() メイン処理 GoSub sub1 'ここでsub1に飛ぶ メイン処理 Exit Sub sub1: サブ処理 Return '戻る End Sub ・業務エラー処理（スローして呼び出し元で） Sub a() IF (エラー) then Err.Raise Number:=999 End Sub Sub Main() On Er…