Inserisci un textbox multilinea sul form e questa versione di codice

codice:
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate "http://txodds.com/omoves.php?ot=0"
    Do Until ie.ReadyState = 4
    Loop
    
    Dim iht As String
    Dim ihtx As Long
    iht = ie.Document.body.innerText
    ihtx = InStr(iht, "datemat")
    If ihtx > 0 Then
        ihtx = InStr(ihtx, iht, vbCrLf)
        iht = Mid$(iht, ihtx)
    End If
    
    Text1.Text = iht
    
    ie.Quit