Sub ReadHtml()
    Dim S As String, TR, Html As String
    S = GetHTTPResponse("http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=1")
    TR = Split(S, "<tr")
    Html = ""
    For n = 1 To UBound(TR)
        If InStr(1, TR(n), "Избушка формулистов-3", vbTextCompare) > 0 Then
            Html = TR(n)
            Exit For
        End If
    Next
    If Html = "" Then Exit Sub
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\r"
    Html = RegExp.Replace(Html, "")
    RegExp.Pattern = "\n"
    Html = RegExp.Replace(Html, "")
    RegExp.Pattern = ">\s+<"
    Html = RegExp.Replace(Html, "><")
    RegExp.Pattern = "<td class=""forum\-column\-replies""><span>(\d+)</span></td>" & _
                     "<td class=""forum\-column\-views""><span>(\d+)</span></td>"
    Set oMatches = RegExp.Execute(Html)
    If oMatches.Count > 0 Then
        replies = Val(oMatches(0).SubMatches(0))
        views = Val(oMatches(0).SubMatches(1))
    End If
    Set RegExp = Nothing

End Sub


Function GetHTTPResponse(ByVal sURL As String)
    GetHTTPResponse = ""
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
        .send
        GetHTTPResponse = .responseText
    End With

    Set oXMLHTTP = Nothing

End Function