metodo de copia de registros HKLM

[luzstellan]

Gracias portu respuesta pero la verdad me aparece error mira como lo estoy haciendo.
Function Leer_Dato(Principal As String, Valor As String) As String
Leer_Dato = O_Registro.RegRead(Principal & "\SOFTWARE\TROYASOFT\Prueba\" & Valor)
O_Registro.RegWrite "HKCU\Software\Prueba\caso", 1, "REG_SZ"


Private Sub Command3_Click()
MsgBox Leer_Dato(LocalMachine, "caso"), vbInformation
O_Registro.RegWrite "HKCU\Software\& Valor "
End Sub


Espero tu respuesta gracias.