Private Sub Command1_Click()
'####----INICIO----CHAMA UM .EXE---#########
On Error GoTo Err_Command1_Click 'inicia tratamento de erro
Dim RetVal 'declara RetVal
RetVal = Shell("
\PC01pastaaplicacao.exe", 1) 'ABREI O EXE
End 'fecha após abrir o .EXE
Exit_Command1_Click: 'desliga o botão
Exit Sub
Err_Command1_Click: 'trata o erro
MsgBox "Erro!!! o BLABLABLA.EXE não foi encontrado!" & (Chr$(13)) & "Entre em contato com FULANO DE TAL e informe sobre esse erro!" & (Chr$(13)) & " ", 16, "ATENÇÃO"
End 'caso deu erro sai do programa
Resume Exit_Command1_Click
'####----FIM----CHAMA UM .EXE---#########
End Sub