Or a number of other methods which are basically similar: Google
Or something like this example I use to terminate Library Manager, which in the past was known for hanging open:
strFoundProcess = False
Set AllProcess = getobject("winmgmts:") 'create object
i = 0
Do While i < 3 '3 is just a guess, make it bigger if needed.
For Each Process In AllProcess.InstancesOf("Win32_process") 'Get all the processes running in your PC
If (Instr (Ucase(Process.Name),"LIBRARYMANAGER.EXE") = 1) Then ' Replace with your application name in CAPS.
' Msgbox Process.Name & " Application is already running"
scripting.sleep (1000) 'Wait for a while to kill the process
strFoundProcess = True
i = i + 1
Set AllProcess = Nothing