Web scraping from printer web interface

[loop66]

UPDATE

this code partially works:

Dim IE As InternetExplorer, values As Object, i As Long, ws As Worksheet, t As Date
Const MAX_WAIT_SEC As Long = 5

Set IE = New InternetExplorer
Set ws = ThisWorkbook.Worksheets("Sheet1")

With IE
.Visible = True
.Navigate2 "https://XX.XX.XX.XX/">
While .Busy Or .readyState <> 4: DoEvents: Wend

t = Timer
Do
Set values = .document.querySelectorAll(".tank")
If Timer - t > MAX_WAIT_SEC Then Exit Do
Loop While values.Length = 0

If values.Length > 0 Then
For i = 0 To values.Length - 1
With ws
.Cells(i + 1, 1) = values.Item(i).innerText


End With
Next
End If
.Quit
End With