subの関数内で ifでEnd subに飛ばしたら”ifブロックに対応するEnd If がありません”と警告受けるので実装方法が知りたい。

Question

お世話になっております。

EXCELのB3にあるxlsxファイルを削除するVBAを以下のように組みましたが

    If (endFlag) Then
        End Sub
    End If

上記のEnd Sub　で件名のように
”ifブロックに対応するEnd if がありません”と警告を受けてしまいます。

初めはendFlagではなく直接

    If (exceltmp <> "") Then
        End Sub
    End If

で実装したらそこでもEnd Ifがありませんと言われたので
Dim endFlag As Boolean: endFlag = False
と実装してみたのですが同様にEndIFが無いと警告を受けてしまいました。

もしかしてVBAで途中で関数を抜け実装方法は
IF　ではないのでしょうか？

どのような語句で調べれば良いのか伺ってよろしいでしょうか？

大変基本的な事を問い合わせて申し訳ないのですが上記お問い合わせいたします。
何か情報をお持ちになっていらっしゃる方はコメント頂けますようお願い申し上げます。

以下が元ソースです。

Sub deleteFile_Click()

    Dim copyDirFiles, exceltmp As String
    Dim endFlag As Boolean: endFlag = False
'    copyDirFiles = Range("B3").Value & "*.xlsx"
    'B3にファイル名まで含めたパスてすと
    copyDirFiles = Range("B3").Value & "*.xlsx"
    
    exceltmp = Dir(Range("B3").Value)
    
    If (exceltmp <> "") Then
        endFlag = True
    End If
    
    If (endFlag) Then
        End Sub
    End If
    
    With CreateObject("Scripting.FileSystemObject")
'        If .FileExists(copyDirFiles) Then 'なんかFileExistsには*が使えないので削除
            .DeleteFile copyDirFiles
'        End If
    End With
End Sub

Comments

[退会済みユーザー]

この質問文書くより楽に検索できるでしょ…本当に意味が判らない
https://www.google.co.jp/search?q=vba+%E9%96%A2%E6%95%B0+%E6%8A%9C%E3%81%91%E3%82%8B

[ma2hiro]

仰る通りですね……
焦って書き込んで失礼いたしました。

[退会済みユーザー]

自分の質問文中のワードくらい最低限検索してくださいよ。人力検索サイトか何かと勘違いしてます？

[ma2hiro]

大変失礼しました。
以後気をつけます。

Answer 1

End Sub はそこがSubプロシージャの終端という意味になります。
Subプロシージャを抜けたいのならExit Sub を使ってください。

    If (endFlag) Then Exit Sub

Comments

[ma2hiro]

失礼いたしました。
end Sub　と思い込んでしまっていましたが
Exit Sub ですねっ

ありがとうございました。焦ってしっかり確認していなく失礼いたしました。

Answer 2

Exit Sub でどうでしょうか。

    If (exceltmp <> "") Then
        Exit Sub
    End If

Comments

[ma2hiro]

umau様
ありがとうございます。
出来ましたっ
本当に初心者で申し訳ございませんでした。