選択式のダイアログボックスを表示する

Dim rc As Long
rc = MsgBox("OKで続行、キャンセルで中止", vbOKCancel)
If rc = vbCancel Then
    Exit Sub
End If