<div class="page_name fl_l ta_l" dir="auto">ФИО</div>

Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        Dim iPos As Integer, iEnd As Integer
        Dim strResult As String
        iPos = strSource.IndexOf(strStart, 0)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        Return strResult
    End Function

Dim tekst, result As String
        tekst = IE.Document.body.innerHTML
        result = Pars(tekst, ("< div class=" & "page_name fl_l ta_l" & "dir="auto" > "), ("</div>"))
        MsgBox(result)