Se ha producido el error 53 en tiempo de ejecución

Tengo una código para que tome foto web cam cuando se ingresa dato de un usuario

Private Sub btn_TomarFoto_Click()
Dim RetVal, base, i, picName, picPath, picNumber

Hoja1.Cells(1, 1) = Hoja1.Cells(1, 1) + 1
picNumber = Hoja1.Cells(1, 1)
picName = "Image" & picNumber & ".bmp"

ChDir (ActiveWorkbook.Path)
base = ActiveWorkbook.Path & "\"
picPath = base & picName

RetVal = Shell(base & "CommandCam.exe /filename """ & picPath & """", vbHide)

For i = 0 To 5
Aviso "Eapere..." & i
Application.Wait (Now + TimeValue("00:00:01"))
Next

Aviso "Listo!!!"

ArchivoIMG = picPath

frm_Clientes.fotografia.Picture = LoadPicture(ArchivoIMG) RESALTA ESTE CODIGO DICE ERROR 53 Q SERA 

---

End Sub