innazi tutto necessario il componente inet
quindi dobbiamo aprire la finestra dei componenti dal men: Progetto - Componenti...
possiamo anche aprirla semplicemente con CTRL+T
a questo punto bisogna aggiungere Microsoft Internet Transfer Control 6.0


per mettere il codice in una textbox (multiline)

Private Sub VediURL(URL As String, Txt As TextBox)
Inet1.OpenURL URL     'apre l' url da noi fornita
Txt = Inet1.OpenURL   'preleva il codice e lo visualizza nella textbox
End Sub


per eliminare i principali tag html possiamo usare questa sub ricorsiva, che x non pu dare problemi a seconda dell' URL

Private Sub EliminaHTML(Txt As TextBox)
    If InStr(Txt, "<") Then
        Txt.SelStart = InStr(Txt, "<") - 1
        Txt.SelLength = InStr(Txt, ">") - Txt.SelStart
        Txt.SelText = ""
        EliminaHTML Txt
    End If
End Sub


un esempio sull' utilizzo

Private Sub Form_Load()
VediURL "www.google.it", Text1
EliminaHTML Text1
End Sub