Visual Basic - Ayuda, reemplaza espacios por guin bajo!!!!!

Hola, una duda, quiero reemplazar los espacios por guiones bajos a unos archivos, he echo el programa pero solo me cambia el primer archivo, creo que le falta un else para validar que en caso de que no tenga el espacio se pase al siguiente registro, no se como hacerlo, me ayudarian, diez puntos porfa!!!

Private Sub Command1_Click()
Dim PathArchivo As String
Open "D:\maxi\lista.txt" For Input As #1
Do While Not EOF(1)
Input #1, PathArchivo

FileCopy PathArchivo, Replace(PathArchivo, " ", "_")
Kill PathArchivo



Loop

Label1.Caption = PathArchivo
Label1.Refresh

Close #1



MsgBox "termine!!!"

End Sub

Pues no lo que te falta es revisar todos los archivos.... solo vas a uno de la ruta.... en todo caso te enviare parte del codigo y adaptala si tienes alguna duda avisame...
**Con el for each vas validando archivo por archivo de la ruta y con los demas instrucciones sacas lo que necesitas, puedes hacer filtro por nombre, por ext .... ya queda a tu imaginacion.
No tengo el VB ahora pero con gusto te ayudare si necesitas algo mas.....


'Declaraciones
Public fs As New FileSystemObject
Public temporal As Folder
Public Archivo As File

Private Sub Command1_Click()
Set temporal = fs.GetFolder(App.Path & "\txt") '("c:/cias/Rl/") ' la ruta donde estan tus archivos.....
nombre as string
Open "D:\maxi\lista.txt" For Input As #1
Do While Not EOF(1)
nombre = Archivo.name
Archivo.name (aqui tienes el nombre del archivo)
'archivo.path te dara la ruta
'archivo te data toda la ruta el nombre y hasta la extension.

FileCopy archivo.name, Replace(archivo.name, " ", "_")
Input #1, nombre
' Kill Archivo.path no se por que lo eliminas... en todo caso.... lo comento.
Loop

Next Archivo


Label1.Caption = PathArchivo
Label1.Refresh

Close #1



MsgBox "termine!!!"

End Sub

ok, Gracias, solucionado, eres todo un experto, y Gracias por la ayuda!!!

Bueno no soy experto... pero Gracias ... un gusto poderte ayudar ...