プログラムのイベント処理中断方法

VB2008のイベンド中止処理についてお教え頂けませんでしょうか。

Formにボタンが１つあり、クリックするとCSVファイルが出力される処理をしたいです。

やりたい処理：
1. 「CSVファイル出力しますか？」というメッセージを出す。YESなら処理続行。Noなら処理中止。
2. CSVファイル出力処理。
3. 「CSVファイルを出力しました。」
(プログラム自体を終了したいわけではありません）

VBAだと下記のようなコードを書きたいです。

Sub テスト()
Dim ans As Integer
ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト")
If ans = vbNo Then

end
end if

'CSV出力処理～～～
end sub

VBにendというステートメントがあれば、良いのですが無さそうです・・・
何か上手な処理はあるでしょうか？VBAのコードになってしまいますが、下記のような処理方法しかないでしょうか？

'''''''''''''''''1
Sub テスト()
Dim ans As Integer
ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト")
If ans = vbNo Then

end
else
'CSV出力処理～～～
end if

end sub

''''''''''''''''2

Sub テスト()
Dim ans As Integer
ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト")
If ans = vbNo Then

goto here

end if

'CSV出力処理～～～

here:
end sub

No.1 ベストアンサー 回答者： Picosoft 回答日時： 2014/01/23 11:21

イベントの中でReturnなりExit Subなりすればいいのでは？

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
　If MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト") <> vbYes
　　Return 'またはExit Sub
　End if

　'CSV出力処理

End Sub

この回答へのお礼

returnでよいのですね・・・ありがとうございました！

お礼日時：2014/01/23 12:19