[Resolvido]Retornar apenas o diretório do arquivo

Olá pessoas!
Sabemos que a função Dir(x) retorna o arquivo correspondente ao caminho informado (x); existe alguma maneira de fazer com que seja retornado apenas o path do arquivo?
Ex:
C:\Diretorio1\arquivo.accdb
Retorne: 'C:\Diretorio1\'

C:\Diretorio1\Diretorio2\arquivo.accdb
Retorne: 'C:\Diretorio1\Diretorio2\'

C:\Diretorio1\Diretorio2\Diretorio3\arquivo.accdb
Retorne: 'C:\Diretorio1\Diretorio2\Diretorio3\'

Bom dia

Código:

Function NomePasta(EnderecoCompleto As String, SoPasta As Booleano) As String
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim Cont As Integer
   
    If Right(EnderecoCompleto, 1) = "\" Then
        NomePasta = EnderecoCompleto
    Else
        For Cont = 1 To Len(EnderecoCompleto)
            If InStr(Cont, EnderecoCompleto, "\") = 0 Then
                NomePasta = Mid(EnderecoCompleto, 1, Cont - 1)
                Exit For
            Else
                Cont = InStr(Cont, EnderecoCompleto, "\")
            End If
        Next
    End If
   
    If SoPasta Then
        If Right(NomePasta, 1) = "\" Then NomePasta = Mid(NomePasta, 1, Len(NomePasta) - 1)
       
        For Cont = Len(NomePasta) To 1 Step -1
            If Mid(NomePasta, Cont, 1) = "\" Then
                NomePasta = Mid(NomePasta, Cont + 1)
                Exit For
            End If
        Next
    End If
End Function

Bom dia, Alexandre!
Não estou conseguindo executar o código, talvez eu esteja fazendo algum procedimento errado.

Me!arquivo= C:\Diretorio1\Diretorio2\arquivo.xxx
Ao clicar no cmdxxx faça:
Me!caminho= NomePasta(Me!arquivo)
Dai retorna o erro:'Erro de compilação: O argumento não é opcional'

a função tem 2 argumentos. falta preencher o segundo que será True

Atendeu perfeitamente, obrigado Alexandre!