Si te he entendiod bien puedes hacer 2 cosas, y lo que quieres es cambiar el valor de strArchivo dentro de la función puedes hacerlos de 2 maneras, o bien:
Código:
strArchivo = Archivo.BuscarArchivo(strArchivo)
...
Public Function BuscarArchivo(ByVal strArchivo As String) as string
Return valor
End Function
o simplemente:
Código:
cArchivo.BuscarArchivo(strArchivo)
....
Public Sub BuscarArchivo(ByRef strArchivo As String)
End Sub