Sub aaa111()
Dim i As Integer, s1, s As String
Dim s As String, o As Object, nPos As Long, nPos1 As Long

Set WebBrowser1 = New SHDocVw.InternetExplorer
    WebBrowser1.Visible = True

For i = 1 To 44

        s1 = "http://www.banki.ru/banks/memory/?PAGEN_1=" & i & "&by=PROPERTY_date&order=desc"
        ''''http://www.banki.ru/banks/memory/?PAGEN_1=1&by=PROPERTY_date&order=desc
        '------------------------------------------------------------------------------------
        Call WebBrowser1.Navigate(s1)
        'Процедурка ждёт загрузки страницы
        Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
            Application.Wait (1)
        Loop
        '------------------------------------------------------------------------------------
        'Читаем страницу в HTML, находим адрес ссылки
        s = WebBrowser1.Document.ChildNodes.Item(1).innerHTML
            nPos = InStr(1, s, "/banks/memory/bank/?id=", vbTextCompare)
            If nPos <> 0 Then
                nPos1 = InStr(nPos, s, """>", vbTextCompare)
                If nPos1 <> 0 Then
                    'Переходим по ссылке
                    'http://www.banki.ru/banks/memory/bank/?id=5201871
                    WebBrowser1.Navigate ("www.banki.ru" & Mid(s, nPos, nPos1 - (nPos - 1)))
                        Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
                            Application.Wait (1)
                        Loop
                    'Возвращаем адрес в переменную
                    URLadr3 = WebBrowser1.LocationURL
                    Cells(i, 3) = URLadr3
                End If
            End If
Next i
        Set WebBrowser1 = Nothing
End Sub