Help! Terminate Process

				
'**************************************
' Name: Help! Terminate Process
' Description:Terminate process if the user click OK button. If CANCEL button, the process will not terminate.
(This code also display msgbox even there is no running process)
Can someone help me? How can i modified this code like this:
*Will not display msgbox if there is no running process*
Thanks in advance! :)
' By: Rey-An
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=74434&lngWId=1'for details.'**************************************

Option Explicit
Dim strExitCode, strProcStat1, strMsgRet, strCmdLine
Dim strPro(3), strProcReturn, strProcStat, strItem
Dim objShell
Set objShell = CreateObject("wscript.shell")
strProcStat = False
	
strPro(0)="CALC.EXE"
strPro(1)="WINWORDL.EXE"
strPro(2)="NOTEPAD.EXE"
strPro(3)="OUTLOOK.EXE"
strMsgRet = MsgBox("DO YOU WANT TO EXIT?", vbOKCANCEL)
If strMsgRet = 1 then
	For Each strItem In strPro
 	strProcReturn = CheckProcess(strItem)
 		if strProcReturn = TRUE then 
			strCmdLine = "cmd /C taskkill /f /im " & strItem
		objShell.Run strCmdLine, 1
				End if
	Next
	strExitCode = 0
Else
strExitCode = 321
End If
WScript.Quit(strExitCode)
Function CheckProcess(strPro)
	Dim objShell, strCmdLine, objProcess
	Set objShell = CreateObject("wscript.shell")
	Set objProcess = GetObject("winmgmts:").execquery("select * from Win32_Process where Name='" & strPro & "' and KernelModeTime>1 ")
	if objProcess.count > 0 Then
		CheckProcess = TRUE
	End If
End Function