Microsoft Access 掲示板

Dim aName As String :aName = test1.txt
Dim bPath As String :bPath = "C:\Users\me\Desktop\test2
Dim cPath As String :cPath = "C:\Users\me\Desktop\test3"
Dim dText As String :dText = "test4\"
Dim fText As Stirng :eText = "test5\"
Dim gText As String :fText = "test6\"

    If IsNull(Me.txt●●) Then
    MsgBox gText & "を記入してください"
    Exit Sub
            ElseIf AcDir(bPath, vbDirectory) = "" Then
            MsgBox "フォルダが存在しません。"
            Exit Sub
                 ElseIf AcDir(bPath & "\" & aName, vbNormal) = "" Then
                 MsgBox aName & "が見つかりません。"
                 Exit Sub
                      ElseIf AcDir(cPath & "\" & dText, vbDirectory) <> "" Then
                      FileCopy bPath & "\" & aName, cPath & "\" & dText & "\" & aName
                      Shell "Explorer.exe " & cPath & "\" & dText & "\", vbNormalFocus
                      Exit Sub
                            ElseIf AcDir(cPath & fText, vbDirectory) <> "" Then
                            MsgBox "「" & dText & "」フォルダが見つかりません。「" & fText & "」フォルダに保存します。"
                            FileCopy bPath & "\" & aName, cPath & "\" & fText & "\" & aName
                            Shell "Explorer.exe " & cPath & "\" & fText & "\", vbNormalFocus
                            Exit Sub
                                Else: MsgBox "「" & dText & "」「" & fText & "」フォルダのどちらも見つかりません。"
                                         Shell "Explorer.exe " & cPath, vbNormalFocus
                                
    End If
    End Sub

一応、私の確認したところでは正常に動いているものに対して、一括置換しました。
不備あれば申し訳ありません。