Pb d'écriture dans la base de registre vb

Bonjour,
Je suis en train de faire un programme d'édition de de texte RTF et je voudrais associé mon programme avec les fichier portant l'extension *.rtf.
Alors j'utilise ce code:

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _
(ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal dwType As Long, ByVal lpData As String, _
ByVal cbData As Long) As Long

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 255
Private Const REG_SZ = 1

Private Sub cmdAssocExt_Click()

Dim MaCle As Long

Call RegCreateKey(HKEY_CLASSES_ROOT, "RTF", MaCle)
Call RegSetValue&(MaCle, "", REG_SZ, "RTF", 0&)
Call RegSetValue&(MaCle, "shell\open\command", REG_SZ, "C:\Program Files\RTF-Editor\RTF-Editor 1.0.exe %1", MAX_PATH)
Call RegSetValue&(MaCle, "DefaultIcon", REG_SZ, "C:\Program Files\RTF-Editor\RTF-Editor 1.0.exe,1", MAX_PATH)
Call RegCreateKey&(HKEY_CLASSES_ROOT, ".rtf", MaCle)
Call RegSetValue&(MaCle, "", REG_SZ, "RTF", 0&)

End Sub

Mais le débogueur m'affiche: "Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée."

Donc je voudrais savoir comment je peut faire autrement ou corriger l'erreur,
Merci, Thomas

PS: Je cherche aussi comment créer un aperçu avant impression et ajouter une image à ma RichTextBox (Malgré les sources trouvé sur ce site que je n'arrive pas à faire fonctionner). Mais c'est secondaire.

Merci encore