Try Out the VB Parser

Display a dump of the parse tree (AST)
Add error handler

Private Sub Inet1_StateChanged(ByVal state As Integer) Dim strHTML As String Dim vtData As String Select Case state Case icError txtHTML.Text = "ERROR" Case icResponseCompleted vtData = Inet1.GetChunk(1024, icString) Do While LenB(vtData) > 0 strHTML = strHTML & vtData vtData = Inet1.GetChunk(1024, icString) Loop txtHTML.Text = strHTML txtHTML.SelStart = 0 txtHTML.SelLength = Len(txtHTML.Text) txtHTML.SetFocus ' Debug.Print "Response: " & Inet1.ResponseInfo ' Debug.Print "HDR: " & Inet1.GetHeader End Select End Sub