Prüfen ob Prozess aktiv, nach Zeit X falls ja beenden und erneut starten

Guten Morgen,

ich löse in Access ein Button start, welcher mit ein Programm startet
Nun kommt es oft vor, dass es Probleme gibt und ich das Programm nochmal starten muss.
Dazu klicke ich einfach auf den Button start und dieser killt den laufenden Prozess.

Meine Frage nun, kann ich irgendwo einbinden, dass der Prozess xtart.exe z.b. 10 Sekunden beobachtet wird, und falls dieser nach der Zeit noch vorhanden automatisch gekillt und dann der Befehl Call kts erneut ausgeführt wird?
Sprich Start klick -> Prozess beobachten, falls >10 Sekunden Kill xtart und führe Call kts erneut aus, wiederhole Startprozess , bis xstart nicht als Task vorhanden

Private Sub kts()
Dim kts, val2, val As String

val2 = Nz(Me!ID)
val = Nz(Me!Param1)
Shell "c:\creator\xstart.exe /hdlnr:" & val2 & " /webserver:" & val & " TWE"  
end sub

Private Sub start_Click()
Dim myIniFile As String


Open "C:\temp\reset_xstart.bat" For Output As #1  
Print #1, "@echo on" 
Print #1, "taskkill /IM xstart.exe /F" 
'Print #1, "RD /S /Q C:\creator\logs"  
'Print #1, "RD /S /Q C:\creator\temp"  
'Print #1, "md C:\creator\temp"  
'Print #1, "md C:\creator\logs"  
Print #1, "echo J| del C:\temp\reset_xstart.bat" 

Close #1

Shell "C:\temp\reset_xstart.bat"  

Sleep 1500

Call copy_ini
'Call ini_edit  
Call kts
If Me.Retail = True Then
Me.passwort_retail.SetFocus
DoCmd.RunCommand acCmdCopy
Else
  If Not IsNull(Me.pass_pwd) Then
  Me.pass_pwd.SetFocus
  DoCmd.RunCommand acCmdCopy
  End If
End If

End Sub