While (Sys.WaitProcess("iexplore",0).Exists) 'Wait process prevents error if not existing
Sys.Process("iexplore").Terminate 'Terminate process
Sys.Refresh 'Refresh object tree
Wend
Or if you want a more elegant method not requiring test complete:
ProcessKill("iexplore")
Sub ProcessKill(strProcessKill)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, " _
& "(Debug)}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess in colProcess
objProcess.Terminate()
Next
End Sub