SUB PARSNN()
    Dim sAnswer As String, ie As Object, avArr, li As Long
la1 = "http://www.sql.ru/"
On Error Resume Next
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate la1
    While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
    sAnswer = ie.Document.body.innerText
    sAnswer = Replace(Replace(sAnswer, Replace(Replace(sAnswer, vbCrLf, Chr(10)), vbNewLine, Chr(10)), Chr(10)), vbLf, Chr(10))
    avArr = Split(sAnswer, Chr(10))
    For li = 0 To UBound(avArr)
        &#203;&#232;&#241;&#242;1.Cells(li + 1, 1).Value = avArr(li)
    Next li
    ie.Quit: Set ie = Nothing
END sub