Closing Open Browsers

Public Function CloseProcess(strProgramName)
   Err.Clear
   On Error Resume Next
   Dim objShell
   a=split(strProgramName,":")
   Set objShell = CreateObject("WScript.Shell")
  
   For Iterator = 0 To ubound(a) Step 1
         objShell.Run "TASKKILL /F /IM " & a(Iterator)
   Next
   
 
    Set objShell = Nothing
   
    If err.number<>0 Then
      Reporter.ReportEvent micFail,"Closing Open Browsers","Step Failed"
    Else
      Reporter.ReportEvent micPass,"Closing Open Browsers","Step Passed"
    End If
End Function

CloseProcess "chrome.exe:iexplore.exe"