Hab schon alles bei Google durchsucht...alles unbefriedigend.
Das hier kommt dem ganzen schonmal sehr nahe:

Option Explicit

Private Sub Command1_Click()
On Error GoTo ErrHANDLER
Dim SiteHTML As String

Inet1.Cancel

Inet1.Protocol = icHTTP 'Hier was anderes, wenn
'kein WWW-Server
Inet1.AccessType = icDirect 'Hier was anderes,
'wenn du ne Firewall hast, keine Ahnung wie das geht

SiteHTML = Inet1.OpenURL(Trim$(Text1), icString) 'Seite laden

Text2 = SiteHTML

Exit Sub
ErrHANDLER:
Inet1.Cancel
MsgBox "ERROR: " & Err.Description, vbCritical
Exit Sub
End Sub
Allerdings weis ich nicht, wo ich dort überhaupt die URL einfügen muss...