Microsoft Access 掲示板

お世話になります。
下記コードでフォルダパスを開かせるようにしているのですが、パス内にカンマが含まれるときはうまく指定のフォルダパスを開くことができません。（エクスプローラーがデフォルトとして開く）
カンマが含まれていても開くことはできますでしょうか？
また、こういう実際開けないときにデフォルトのエクスプローラーを開かない方法はありますでしょうか…？

Private Sub btnパスへ移動_Click()

Dim testPath As String
    If Not IsNull([txtフォルダパス]) Then
    testPath = Me!txtフォルダパス
    PathOpen (testPath)
    Else
    MsgBox "パスが入力されていません。"
    End If
    
End Sub

Public Function PathOpen(freePath As String)

    If IsNull(freePath) Then
    MsgBox "パスが入力されていません。"
            ElseIf AcDir(freePath, vbDirectory) = "" Then
            MsgBox "保存しているパスが存在しません。パスを確認してください。"
            Exit Function
                ElseIf Not IsNull(freePath) Then
                Shell "Explorer.exe " & freePath, vbNormalFocus
                     Else: MsgBox "パスが入力されていません。"
    End If

End Function