Get HTML Source From a Website w\ Inet

'Load Richtx32.ocx
 'Load msinet.ocx
 'Make a RichTextBox1
 'Make an Inet1
 'Make a plain textbox names URL
 'Make a command1
 
 Private Sub Command1_Click() 
 On Error Resume Next 
   
   Dim txt As String 
   Dim b() As Byte 
   
   Command1.Enabled = False 
   
   b() = Inet1.OpenURL(URL.Text, 1) 
   
   txt = "" 
   
   For t = 0 To UBound(b) - 1 
     txt = txt + Chr(b(t)) 
   Next 
   
   RichTextBox1.Text = txt 
   Command1.Enabled = True 
 
 Exit Sub 
 End Sub
Upload