Visual Basic - Errores al Respaldar Base de Datos

On Error GoTo Fallo

Dim BasedeDatos As String

Dim BackUp As String

BackUp = App.Path & "/backup/sis.mdb" 'aqui es donde se hará el BackUp

BasedeDatos = App.Path & "/sis.mdb" 'aqui donde este la base de datos

FileCopy BasedeDatos, BackUp 'esto lo copia

MsgBox "Ya esta el BackUp"

Exit Sub

Fallo:

MsgBox "Ocurrio un error: " & Err.Description