Ayuda con el registro.

Victor
09 de Diciembre del 2003
Como puedo leer una cadena del registro.
ESCRIBIR PUEDO DE ESTA MANERA,
Private Sub Command1_Click()
Dim WSHShell, RegTemp, valor
valor = Text1.Text

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page", valor
End
End Sub
pero leer no.
AYUDAAA.
GRACIAS