Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()
Dim IE As Object, inpS As MSHTML.IHTMLElementCollection
Dim el As MSHTML.IHTMLElement, cel As MSHTML.IHTMLTableCell

Dim s As String, i As Long

'Me.WebBrowser1.Navigate2 "https://corporate.privatbank.ua/", Null, Null, Null, Null
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://client-bank.privatbank.ua/p24/c2b_login?NOXML"
Do While IE.readyState <>  4 
DoEvents
Loop
Sleep  1000 
' Ищем куда и вводим логин/пароль
Set inpS = IE.document.getElementsByTagName("input")
For Each el In inpS
    Debug.Print el.toString
    If el.Name = "UserName" Then
    el.Value = "Логин"
    End If
    If el.Name = "UserPass" Then
    el.Value = "Пароль"
    End If
    If el.Type = "submit" Then
    el.Click
    End If
Next el
Do While IE.readyState <>  4 
DoEvents
Loop
Sleep  1000 
DoEvents

' Ищем пункт меню "счета" и кликаем по нему, что-бы посмотреть остатки
Set inpS = IE.document.getElementsByTagName("table")
's = IE.Document.body.innerHTML
For Each el In inpS
    Debug.Print el.innerHTML
    If el.innerText = "счета" Then
        el.Click
    End If
Next el

Do While IE.readyState <>  4 
DoEvents
Loop
Sleep  1000 
DoEvents

' Ищем счета и выбираем по ним информацию
Set inpS = IE.document.getElementsByTagName("table")
's = IE.Document.body.innerHTML
For Each el In inpS
'Находим нужную таблицу
    If InStr( 1 , el.innerText, "ДатаНомер счетаНаименование счетаВалютаВх. остатокДебетКредитИсх. остаток", 
vbTextCompare) Then
    '    Идем по ячейкам и собираем информацию
        i =  1 
        s = ""
        For Each cel In el.cells
            s = s & cel.innerText & vbTab
            i = i +  1 
            If i >  8  Then
                i =  1 
                s = s & vbCrLf
            End If
        Next cel
        Clipboard.Clear
        DoEvents
        Clipboard.SetText s
    End If
Next el

Me.Text1.Text = IE.document.body.innerHTML
Set el = Nothing
Set inpS = Nothing
IE.Quit
'IE.Visible = True
Set IE = Nothing
MsgBox "Все"
End Sub
' И в References - Microsoft HTML Object Library подключена :)))