Gruppe
Dialog
Problem
In eine UserForm-TextBox soll der HTML-Text einer Internet-Seite eingelesen werden.
StandardModule: Modul1
Sub DialogAufruf()
frmInet.Show
End Sub
ClassModule: frmInet
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim sURL As String
sURL = "https://www.herber.de/"
TextBox1.Text = Inet1.OpenURL(sURL)
End Sub