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.