Não entendi direiro o que você quer, se for para povoar um ListBox com os nomes dos arquivos de uma determinada pasta, use isto (tirei do Help do VB):
Option Explicit
Dim Caminho, Arquivo
Private Sub Command1_Click()
Caminho = "C:ICONSARROWS"
Arquivo = Dir(Caminho, vbDirectory)
Do While Arquivo <> ""
Arquivo = Dir
If Arquivo <> "." And Arquivo <> ".." Then
List1.AddItem Arquivo
End If
Loop
End Sub
Jayme