mira a ver si esto te sirve
Código
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Open "C:\ejemplo.bat" For Output As #1 Print #1, , Text1.Text Close #1 Call Shell("C:\ejemplo.bat", vbHide) Sleep 50 Kill ("C:\ejemplo.bat") End Sub