Close the Process running in windows Task manager

Function fnCloseProcess(strProgramName)
' creating variable
Dim objProcess
Set objProcess=CreateObject("WScript.Shell")
'running command to kill the process
objProcess.Run "TASKKILL /F /IM "& strProgramName
Set objProcess=nothing
End Function