Visual Basic - Api terminar proceso

Como termino la ejecución de un ejecutable con la API DE Visual Basic

Este es un codigo que cierra todos los procesos abiertos en la PC,
Espero te sea util

Set ows = CreateObject("WScript.Shell")
Set owmi = GetObject("winmgmts:")

sWmiq = "select * from Win32_Process "
Set oQResult = owmi.Execquery(sWmiq)

For Each oProcess In oQResult
msgbox "desea cerrar la aplicación?","4"
iRet = oProcess.Terminate(1)
Next

Set ows = Nothing
Set owmi = Nothing