'TONCES
Sub SaveString (Llave As Long, Path As String, Valor As String, Datos As String)
Dim ret
RegCreateKey Llave, Path, ret
RegSetValueEx ret, Valor, 0, REG_SZ, ByVal Datos, Len(Datos)
RegCloseKey ret
End Sub
Private Sub CmdCrear_Click()
On Error Resume Next
SaveString HKEY_CURRENT_USER, direccion a grabar, "OPEN1", "Complemento.xlb"
End Sub