IE Startseite
Private Sub Form_Load()
Dim reg As Object, value As String 'Variablen festlegen
Set reg = CreateObject("wscript.shell") 'Object festlegen (wscript)
value = reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page") 'String aus Registry auslesen
MsgBox value 'Wert in Fenster ausgeben
End Sub
|