[Resolvido]Variavel toma o valor de caminho (diretorio)

Preciso de guardar o caminho numa variavel, mas nao estou a conseguir, o codigo abaixo deixa escolher o diretorio/pasta, sem selecionar os arquivos texto.

Dim objFld As Object, objShl As Object
Dim getdir As String
Set objShl = CreateObject("Shell.Application")
Set objFld = objShl.BrowseForFolder(0, TextToTitle, 0)

If Not objShl Is Nothing Then
   getdir = objFld.self.Path
End If

Set objShl = Nothing
Set objFld = Nothing
Tentei executar esta linha, mas nao esta funcionando --> DiretorioArquivo = getdir


preciso de atribuir o caminho para a variavel DiretorioArquivo, de maneira a que  consiga executar o seguinte codigo:
dim DiretorioArquivo as string
ArquivoTexto = Dir(DiretorioArquivo & "*.txt", vbArchive)

Um exemplo extremamente simples
Captura o nome do arquivo e caminho

https://dl.dropboxusercontent.com/u/26441349/LocalizaArquivo.zip


Cumprimentos.