En Google vi este code, adaptalo a tus necesidades o crea un .bat
Código:
Private Sub Command1_Click()
KillProcess "ntvdm.exe"
End Sub
Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
Exit Sub
ErrHandler:
Err.Clear
End Sub
Private Sub Command2_Click()
Shell "command.com /k net start ""BMatic - Servicio de Ticketera""", vbMaximizedFocus
End Sub