Inet Control Help

[tarctor]

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.

[dglienna]

First you would need a rich text box.

[tarctor]

text1 is a rich text box.

[dglienna]

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

[tarctor]

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.

[dglienna]

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

[tarctor]

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

[dglienna]

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?

[tarctor]

State return = 5