Formulario con botón para hacer copia de la BD con un fichero .bat que ejecuta winrar

El código que tiene el botón es el siguiente:

Private Sub Salir_Click()

On Error GoTo Err_Salir_Click
If MsgBox("Si desea realizar una copia de seguridad pulse Aceptar. Si no pulse Cancelar.", 65, "Copia de Seguridad") = 1 Then

Dim aux As Integer

Dim Comando As String

Comando = "c:\DOCUMENTOS\CopiaFacturacion2006.bat"

aux = Shell(Comando, 6)

MsgBox "Copia de Seguridad realizada.", 64, "Copia de Seguridad"

End If
DoCmd.Quit
Exit_Salir_Click:

Exit Sub
Err_Salir_Click:

MsgBox Err.Description

Resume Exit_Salir_Click

End Sub

El resultado es que me dice Copia de Seguridad realizada pero no hace la copia

El fichero CopiaFacturacion2006.bat tiene la siguiente linea:

winrar a C:\copias\FACTU2006.zip *.MDB

Tanto el Bat como Winrar esta en el mismo directorio que la BD, y si lo ejecuto desde fuera funciona bien.

Me podrían aclarar que es lo que esta mal.