Как вытащить HTML из активной вкладки браузера Chrome? - VB

Формулировка задачи:

Всем привет! Всю ночь форум копал Надо найти баланс в самом низу страницы и никак не могу получить код для парсинга - в адресной строке после авторизации просто добавляется "\account", а когда вытаскиваю в файл по этому адресу, то получаю стартовую страницу Подскажите ПЛЗ!!

Решение задачи: «Как вытащить HTML из активной вкладки браузера Chrome?»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    wb.Navigate2 "http://pastrym.biz"
End Sub
 
Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Static stage As Long
    Select Case stage
    Case 0
        ' Заполняем логин
        wb.Document.All("log_email").Value = "tolikdinatron@mail.ru"
        ' Заполняем пароль
        wb.Document.All("pass").Value = "12345"
        ' Нажимаем кнопку войти
        wb.Document.Forms(0). _
                    children(0). _
                    children(0). _
                    children(2). _
                    children(0). _
                    children(0).Click
        stage = 1
    Case 1
        Dim e As Object
        ' Получаем список ячеек таблицы и проходим по столбцам выводя информацию
        For Each e In wb.Document.body.children(0). _
                                       children(1). _
                                       children(1). _
                                       children(1). _
                                       children(3). _
                                       children(0).children
    
            If e.children.length = 2 Then
                Debug.Print e.children(0).outertext, e.children(1).outertext
            End If
    
        Next
        stage = 2
    End Select
End Sub
                        