msgbox"終わります",vbokcancel,""
の後にIfでOKならば”ありがとうございました。"キャンセルなら”もう一度やり直して下さい”
と表示させたいのですがどちらを選んでも”ありがとうございました”が出てしまいます。
if vbOkCancel=1 then
Msgbox"ありがとうございました"
Elseif vbOkCancel=" then
Msgbox"もう一度やり直して下さい"
End if
初歩的な質問で申し訳有りませんがお願いします。

MsgBox のヘルプの使用例を見て下さい。

vbOKCancel は定数で、常に 1 です。
どのボタンが押されたのかは、
MsgBox 関数の戻り値を見る必要があります。

> msgbox"終わります",vbokcancel,""
> の後にIfでOKならば”ありがとうございました。"キャンセルなら”もう一度やり直して下さい”
> と表示させたいのですがどちらを選んでも”ありがとうございました”が出てしまいます。
> if vbOkCancel=1 then
> Msgbox"ありがとうございました"
> Elseif vbOkCancel=" then
> Msgbox"もう一度やり直して下さい"
> End if

下記の様にＭＳＧＢＯＸからの戻り値で判断するようにして下さい。

Private Sub Form_Load()

Dim ans As Integer

ans = MsgBox("終わります", vbOKCancel, "終了確認")

If ans = vbOK Then
    MsgBox ("ありがとうございました。")
    End
Else
    MsgBox ("もう一度やり直して下さい。")
End If

End Sub

おかげさまで無事に動作いたしました。
本当にありがとうございました。