mit diesem Thema habe ich mich noch nicht befaßt, habe aber folgendes in einem Buch gefunden:

Einen Wert setzen bzw. ändern

Neben der Root, dem Schlüssel und dem Namen des Feldes übergeben Sie eine Variable vom Typ String oder Long, die den zu speichenrden Wert enthält.

Function SetValue(root&, key$, field$, value As Variant) As Boolean
Dim lResult&, keyhandle&
Dim s$, l&

Den zugehörigen Schlüssel öffnen:

    lResult = RegOpenKeyEx(root, key, 0, KEY_ALL_ACCESS, keyhandle)
    If lResult <> ERROR_SUCCESS Then
        SetValue = False
        Exit Function
    End If

Je nach Variant-Typ wandeln wir in String oder Long um und rufen die zugehörige Funktion auf:

    Select Case VarType(value)
        Case vbInteger, vbLong
            l = CLng(value)
            lResult = RegSetValueEx_DWord(keyhandle, field, 0, REG_DWORD, l, 4)
        Case vbString
            s = CStr(value)
            lResult = RegSetValueEx_String(keyhandle, field, 0, REG_SZ, s, Len( _
              s) + 1)    ' +1 für die Null am Ende
 
        ' Hier können noch weitere Datentypen umgewandelt bzw. gespeichert 
        ' werden
    End Select
    RegCloseKey keyhandle
    SetValue = (lResult = ERROR_SUCCESS)
End Function

Also wie gesagt - probiert hab ich es nicht, ich habe es nur so kopiert wie's da stand - aber vielleicht hilft es Dir weiter.

cu
Moni