Записать данные в реестр проще простого. например так:

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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 REG_SZ = 1

Private Sub Command1_Click()
RegCreateKey HKEY_CLASSES_ROOT, "My application", a
RegSetValue a, "", REG_SZ, "65", 0
End Sub

а как получить записанное значение(в данном случае 65)? какую api функцию использовать? перепробовал уже вариантов 10 - ни одна функция не даёт значение 65. либо ноль, либо какие-то цифры. Если кто знает отпишитесь.

да, метод работает! за совет спасибо. кому интересно вот код записи чтения и удаления ключей реестра:

Dim wshshell
Set wshshell = CreateObject("WScript.Shell")

wshshell.RegWrite "HKCR\My Application\value\", 9 'запись/создание ключа
MsgBox wshshell.RegRead("HKCR\My Application\value\") 'чтение ключа
wshshell.RegDelete "HKCR\My Application\value\" 'удаление ключа