Ho un Problema!

Ho inserito questo codice nel programma!

Dim folder As Object
Set folder = FSO.GetFolder(FRN & "\codici\")
Dim File As Object
For Each File In folder.Files
If Right$(File, 4) = ".txt" Then
CmbVouc.AddItem Split(File, "\")(8)
End If
Next


Ma se cambio cartella ... mi esce un altra stringa....
es(C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\c odici\prova.txt) se metto (8) mi esce prova.txt ... ma se lo sposto in (C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\d bp\dbp\codici\prova.txt) mi esce dpb... come faccio a impostare sempre la fine?? Grazie!