On error resume next
 Dim obj 'InrenetExplorer
 Set obj = CreateObject("InternetExplorer.Application")
 obj.Navigate "about:blank" 'we love sql.ru
 Do
 Loop While obj.busy
 obj.Visible = 1 'loading
 do
 WScript.sleep 1000 'sleeping a second
 if obj is nothing then exit do 'Explorer has been closed
 if obj.busy = false then 'Explorer is loading a page
 Dim td
 Set td = obj.document.getElementsByTagName("TD")
  For i = 1 To td.length
     Dim d
    Set d = td(i - 1)
    If d Is Nothing Then Exit For
    If d.className = "msgbody" Then
    'let's check that it is from Prizrakk - we don't like prizrak!
     Dim a
  'msgbox     d.outerHTML
  Set a = d.parentElement
     Set a = a.parentElement
  'msgbox     a.outerHTML
     Set a = a.rows(1).cells(0)
     c = a.innerHTML
     If Instr(c,"-->Prizzrak<!--") > 0 Then
        d.InnerText = "Prizzrak is ignored!!!"
     End If
    End If
  Next
 end if
 loop