Visual Basic - RESTAURAR Backup, Ayuda

Hola! Tengo el siguiente código en un botón de un formulario que me permite crear una copia de seguridad de mi base echa en Access. Quisiera poner otro botón para que me la restaure al sistema, pero no me sale.

Private Sub Command23_Click()
vsiono = MsgBox("Desea crear una copia de seguridad de la Base de Datos?", vbYesNo + vbQuestion, "Crear Respaldo")

If vsiono = vbYes Then

Dim Base_Original As String, Base_Backup As String
Dim Fs As Variant

Base_Original = App.Path & "\Socios.mdb"
Base_Backup = App.Path & "\Respaldo\Respaldo Manual\Socios.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile Base_Original, Base_Backup, True
MsgBox "Respaldo creado"
End If
End Sub

Muchas GRACIAS!!!!

Gracias por responder!!! Me funcionó muy bien.