modificar registro en visual basic

[Javierillo]

Buenas,estoy intentando crear un valor dentro de una clave del registro de windows,he utiliado este codigo:

------------------------------------------------------------------
Private Sub SetValue(sKeyName As String, sValueName As String, _
vValueSetting As Variant, lValueType As Long)
Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, _
KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)
SetValue "TestKey", "Nombre", "Hola", REG_SZ
End Sub
--------------------------------------------------------------

Pero no funciona...
la clave "testkey" ya la tengo creada dentro de HKEY_CURRENT_USER...
Alguien sabe como arreglarlo,o alguna otra forma de hacerlo?
Gracias!