duda sobre Sistema de Backup

[okdoris]

HOLA HE ESTADO INTENTANDO CON ESE CODIGO ... BUENO AMOLDANDOLO A MI PROGRAMA Y NO HACE LO QUE YO QUIERO
EN SIMBOLOS DEL SISTEMA SI HACE PERFECTAMENTE LA COPIA Y ME LA DEJA EN LA CARPETA BIN
C:\wamp\mysql\bin > mysqldump -u root -p --op deposito > copia_deposito.sql

PERO EL LIO ES QUE EL CODIGO EN VISUAL NO ME ES CORRECTO MIREN


Private Sub mnuMantenimientoBackups_Click()
Dim Contador As Integer
Contador = 0
Set comando1 = CreateObject("WSCript.shell")
comando1.run "cmd /K C:\wamp\mysql\bin > mysqldump -u root -p --op deposito > copia_deposito.sql "
Set comando1 = Nothing
Contador = Contador + 1
If Contador = 0 Then
MsgBox "NO SE PUDO HACER LA COPIA DE SEGURIDAD", vbCritical + vbOKOnly, "Error!"
Else
MsgBox "SE HA HECHO LA COPIA DE SEGURIDAD", vbInformation + vbOKOnly, "Perfecto!"
End If
End Sub

AGRADEZCO SU AYUDA