Problemas con Dir()

bueno aca yo de nuevo esta vez el problema es con Dir (), el tema es asi:
tengo 2 dir, uno en el cuerpo principal del programa, y otro dentro de una
"funcion" que cree de la forma especificada mas abajo. El programa entra a la
funcion, todo correcto, pero cuando sale de la funcion, me da error en el
Dir() del programa principal, diciendo que no se puede llamar dir sin
pathname, ahora este error sucede solamente cuando ejecuto esta funcion,
cuando no esta, el dir del programa principal funciona de maravilla (cabe
destacar que el pathname esta siempre... no me lo he olvidado). Mi suposicion
es que por algun error mio se esta confundiendo el dir de la funcion con el
del programa principal entonces me tira ese error, como hago para que no
suceda esto ? todo lo que ocurre dentro de la ejecusion de la funcion no
queda dentro de la funcion?

gracias por su tiempo, recien empiezo con .net y la verdad que en algunas
cosas es un poco rebuscado, y lo que se encuentra en internet no es de mucha
ayuda, solo ejemplos tontos de como usar un textbox y demas idioteces.

:-)

Namespace Funciones
Module Module1
Sub Main()
End Sub

'primer funcion
Public Sub CopiarArchivos(ByVal sOrigen As String, ByVal sDestino As
String)

Dim sArch

sArch = Dir(sOrigen & "\", FileAttribute.Normal)

Do While sArch <> Nothing

FileCopy(sOrigen & "\" & sArch, sDestino & "\" & sArch)

sArch = Dir()

Loop

End Sub
'fin de la primera funcion
End Module
End Namespace