Access ファイル読込時のエラー処理

Question

Accessでファイル読込の処理を作成しています。
設定ページでファイル変更ボタンを押すと、標準モジュールに記述した
FileSelectプロシージャを呼び出して、読込ファイルを変更します。
タブ切り替え時にテーブルに値を記入します。
ページ1画面の処理実行ボタンを押した際、
値がNull、その値のファイルが存在しない場合も、
FileSelectプロシージャを呼び出して、ファイルを再度選択します。
下記コードの'ファイル未指定、不存在の処理の部分を
より簡潔に書くことはできないでしょうか。
よろしくお願いします。

Option Compare Database
Option Explicit

Dim TabSelect As String

Private Sub 処理実行_Click()
    'ファイル未指定、不存在の処理
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim FilePath As Variant
    Dim NewFilePath As Variant
    Dim errFlg As Boolean
    Dim errMsg As String
    FilePath = DLookup("item_value", "Settings", "item='FilePath'")
    If IsNull(FilePath) Then errFlg = True: errMsg = "ファイル未指定"
    If errFlg = False Then If Not (FSO.FileExists(FilePath)) Then errFlg = True: errMsg = "ファイル不存在"
    If errFlg Then
        MsgBox errMsg, vbInformation
        NewFilePath = FileSelect(FilePath)
        If IsNull(NewFilePath) Then Set FSO = Nothing: Exit Sub
        If NewFilePath = FilePath Then Set FSO = Nothing: Exit Sub
        TextBoxFilePath = NewFilePath
        DoCmd.OpenQuery "DoSettings"
        FilePath = NewFilePath
    End If
    
    'ファイル処理
    Dim xlsx As Object
    Dim wkb As Workbook
    Set xlsx = CreateObject("Excel.Application")
    xlsx.UserControl = True
    Set wkb = xlsx.Workbooks.Open(FilePath)
    'ファイル処理（省略）
    wkb.Close
    Set wkb = Nothing
End Sub

Private Sub ファイル変更_Click()
    TextBoxFilePath = FileSelect(TextBoxFilePath)
End Sub

Private Sub タブ_Click()
    If TabSelect = "設定ページ" Then DoCmd.OpenQuery "DoSettings"
    TabSelect = Me!タブ.Pages(Me!タブ.Value).name
End Sub


<標準モジュール>
Option Compare Database
Option Explicit

Public Function FileSelect(ByVal FilePath As Variant) As Variant
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = Nz(FilePath, CurDir)
        .title = "ファイル選択"
        .Filters.clear
        .Filters.Add "Excel ファイル", "*.xls*"
        If .Show = True Then
            FileSelect = .SelectedItems(1)
        Else
            FileSelect = FilePath
       End If
    End With
End Function

クエリ"DoSettings"

UPDATE Settings SET Settings.item_value = [Forms]![フォーム1]![TextBoxFilePath]
WHERE (((Settings.item)='FilePath'));

クエリ"DoSettings"で更新されるテーブルSettings

Answer 1

考え方を逆にして、ファイル名の入力、チェックの部分をループにしておいて、
ファイル存在が確認されたらそのループを抜けるようにすればどうでしょう