Erro em Tempo de execução

Olá alguém sabe me informar oque é e porque está dando o seguinte erro:

erro em tempo de execução '-214702489-4(800770002); o 'método 'run' do objeto 'iwshell3' falhou

Aguardando

Poderia dar mais dicas? O que está tentando fazer quando isto ocorre? Qual o código utilizado?

o erro se da do código do botão enviar: na lina destacada em azul
'MsgBox "Os tickets foram copiados para a area de transferencia do windows.", 64, "Exito"

Me.code.SetFocus
SendKeys ("^C")
Dim Arquivo, strSystem, WindowsExplorer, caminho, formatacao, Linha, i
caminho = CurrentProject.Path & "\" & Me.id & ".txt"
If Not Me.Form.NewRecord Then
Set strSystem = CreateObject("Scripting.FileSystemObject") ' Pegando a Dll OU SEJA api do windows
If Not strSystem.FileExists(caminho) Then
Set Arquivo = strSystem.createtextfile(caminho, -1) 'criou o arquivo
Linha = Split(Me.generate_code, "
")
For i = 0 To 30
Arquivo.WriteLine Linha(i)
Next
Arquivo.Close 'salvando os dados
Set WindowsExplorer = CreateObject("Wscript.Shell")
WindowsExplorer.Run caminho, 3, 0
Set WindowsExplorer = Nothing
Set strSystem = Nothing

Else
Set WindowsExplorer = CreateObject("Wscript.Shell")
WindowsExplorer.Run caminho, 3, 0
Set WindowsExplorer = Nothing
Set strSystem = Nothing
End If
Else
MsgBox "Os tickets foram copiados para a area de transferencia do windows.", 64, "Exito"

MsgBox "Nao foi selecionado nenhuma remessa", vbCritical, "Erro"
End If

Shell ("C:\Cartão-Pré-Pago\winbox v2.2.18.exe")
End Sub