VB初心者質問スレPart2

この下のプログラムで実行できないんですが、何処が悪いのかわかりません。
教えてください。
コマンド１と２は「作成中」とメッセージを出し、コマンド３は
終了するか否か？ってやつですのです


Option Explicit

Sub Wait()

MsgBox "作成中"

End Sub

Private Sub Command1_Click()

Call Wait

End Sub

Private Sub Command2_Click()

Call Wait

End Sub

Private Sub Command3_Click()

Dim Answer As String

Answer = MsgBox("終了しますか?", vbYesNo, "Msgbox")

If Answer = ybYes Then
End
End If

End Sub

Private Sub Form_Load()

Label1.Caption = "管理人"
Command1.Caption = "初期設定"
Command2.Caption = "開始"
Command3.Caption = "終了"
Form1.Cartion = "組込み関数"

End Sub