Visual Basic - Copiar archivo

Necesito saber como copiar un archivo de una carpeta a otra con VB

Este codigo me funciona para copiar archivos de cualquier extension, pruebalo

Dim sFicOri As String, sFicDes As String
Dim Fs As Variant

sFicOri = "Ruta origen (Incluyendo nombre del archivo)"
sFicDes = "Ruta destino (Incluyendo nombre del archivo)"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile sFicOri, sFicDes, True

Suete!