Como crear valores en el registro de windows XP

Yo uso este código para registrar un programa y se inicie junto con windows, estoy seguro que con unas pequeñas modificaciones podrás lograr lo que te propones, como ves puedes leer y ingresar datos. Espero te sirva
Private Sub Command1_Click()
On Error Resume Next
Dim El_Objeto As Object
Cd.FileName = "": Cd.FileTitle = ""
Cd.Filter = "Archivos ejecutables|*.exe|"
Cd.ShowOpen
If Cd.FileName "" Then
    LblRuta.Caption = Cd.FileName
    LblExe.Caption = Cd.FileTitle
    Set El_Objeto = CreateObject("WScript.Shell")
    Resultado = El_Objeto.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & Cd.FileTitle)  'lees  datos  / nombrejecutable deve ser el nombre que recivira el ejecutable
    If Resultado = "" Then
        If MsgBox("La Aplicacion no se inicia automaticamente al arrancar Windows. Desea que de ahora en adelante se inicie automaticamente ?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
            El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\articons.exe", Cd.FileName  ' escribes en el reg lo mismo con nombrejecutable
            MsgBox "Listo. De ahora en adelante la Aplicacion inicia automaticamente al arrancar Windows", vbOKOnly + vbInformation, Me.Caption
        End If
    Else
            MsgBox "La Aplicacion ya inicia al arrancar Windows", vbOKOnly + vbInformation, Me.Caption
    End If
    Set El_Objeto = Nothing
Else
    LblRuta.Caption = "..."
    LblExe.Caption = "..."
    Exit Sub
End If
Exit Sub
End Sub

Discúlpame la molestia, podrías escribir el código de nuevo, pero esta ves con el nombre de mi EXE(AOE.exe) y la ruta(C:\Archivos de programa\AOE.exe), porque intente de varias formas y ninguna funciono.