Pegar nome do arquivo .txt

[BlackAlnet]

Ola, sou novo no forum e venho aqui pedir ajuda para incrementar uma rotina que eu criei.

No meu trabalho, preciso pegar em media 8 documentos de textos, fazer varias formatações e depois classificalos. Consegui fazer bem a programação disso, mas queria alterar uma parte, e não sei como.

Atualmente, o usuário seleciona quantos .txt ele quiser, mas eu preciso do nome do arquivo.txt na frente do meu processamento de informações, isso para cada arquivo.

Atualmente estou usando isso, no final de cada processamento.

Dim txtname As String

    txtname = Application.GetOpenFilename("text files (*.txt), *.txt,")

O problema, é o erro que isso pode ocasionar, caso o usuario selecione o arquivo errado... alguém pode me ajudar? PS: codigo que uso para abrir multiplos arquivos é o seguinte:

Dim lngCount As Long
With Application.FileDialog(msoFileDialogOpen)
For lngCount = 1 To .SelectedItems.Count.Show
'importar os arquivos
'e processa as informações e um monte de coisa mais..
Next lngCount

Desde já agradeço a atenção.

Editado Julho 30, 2009 por BlackAlnet