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

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 = "oiru"
        ' Заполняем пароль
        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