Visual Basic - type mismatch

[____________]

Im getting "type mismatch" error when i run my code
the code just log into a list of sites, the txthtml is a textbox that shows the code of the site which is currently login in, well i think there is some error with the data there causing the error i tried everything but nothing works
the problem is here
Private Sub Inet_StateChanged(ByVal State As Integer)

Dim HTML1 As Variant
HTML1 = ""

If State = 12 Then
HTML1 = Inet.GetChunk(1024, icString)
txthtml.Text = HTML1

DoEvents
Do Until HTML1 = Empty
HTML1 = Inet.GetChunk(1024, icString)
txthtml.Text = txthtml.Text & HTML1
Loop
txthtml.Text = Replace(txthtml.Text, Chr(13), vbCrLf)
txthtml.Text = Replace(txthtml.Text, Chr(10), vbCrLf)

ElseIf State = icTimeout Then
Inet.Cancel
End If


End Sub

could someone help me here?¿