Inet Control Help

VB Code:

Private Sub Command2_Click()
 
n = -14
 
 
 
For n = n To Text2.Text
n = n + 14
myurl = Text3.Text & n
 
Inet1.Protocol = icHTTP
Inet1.Execute CStr(myurl), "GET /"
While Inet1.StillExecuting
    DoEvents
   Wend
 Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf)
'Call Limits
Call parse
Call Command3
 
Text1.Text = ""
 
 Next n
 
MsgBox "Done"
End Sub
 
 
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12
stemp = Inet1.GetChunk(100)
While stemp <> ""
Text1.Text = Text1.Text & stemp
'Text1.Text = Replace(Text1.Text, " ", "")
stemp = Inet1.GetChunk(100)
Wend
Text1.Text = Text1.Text & stemp
Case 11
MsgBox Inet1.ResponseInfo, vbCritical, "error"
End Select
End Sub

I need to pull html from a website and place it in a rich text box. This code worked once before , but I have changed computers and many updates. I am not sure if the code has gotten changed or modified but it doesn't work now. Any ideas or help is appreciated.

First you would need a rich text box.

text1 is a rich text box.

Is it pulling down any data? What is the problem?

its not pulling any data , it seems to be connecting to the internet and working but no data is being displayed in rich text box nor does it show any in the watch screen.

Put a breakpoint on the Select Case to see what value State has.

It goes from break point Select Case State to Case 12 then skips to Case 11 then goes to End Select.

Hover over STATE to see what the value is, or place a

MSGBOX STATE in somewhere. Did you always use the variable STATE? Could it be reserved?

State return = 5