For Each IEApp In CreateObject("Shell.Application").Windows()
            If InStr(1, IEApp.FullName, "iexplore.exe", vbTextCompare) > 0 Then
                IEApp.Quit()
            End If
Next

ピーピーピー！あなたのPCはウィルスに感染しています(;´Д`)