Salu2 rodolfo
Podrias hacer lo siguiente:
Dim strOrigen as String
Dim strDestino as String
'//Leyendo Origen del archivo a copiar
strOrigen = TxtOrigen.Text
'//Leyendo Destino del archivo donde copiar
strDestino = TxtDestino.Text
'//Copia el Archivo del Origen al destino
FileCopy strOrigen, strDestino
Espero te ayude...
Un saludo zeekel ®
[KGT]