Opret en key i registreingsdatabasen

Jeg har lavet dette og jeg fatter hat af hvorfor jeg ikke får oprettet en "Key" i RegDB. Håber nogen kan hjælpe mig.

Const HKEY_LOCAL_MACHINE = &H80000002
Dim lstrKeyPath, lstrValueName, lstrValue
lstrKeyPath = "SOFTWARE\Canon\GARO1\"
lstrValueName = "LocaleInfo"
objReg.GetStringValue HKEY_LOCAL_MACHINE,lstrKeyPath,lstrValueName,lstrValue
msgbox lstrValue  <--- Viser indhold som den skal
if IsNull(lstrValue) then
  lstrKeyPath = lstrKeyPath & lstrValueName
  msgbox lstrKeyPath
else
  msgbox "Test"
  lstrValueName = "LocaleTest"
  lstrKeyPath = "Software\Test"
  Return = objReg.CreateKey(HKEY_LOCAL_MACHINE,lstrKeyPath)
  msgbox Return
  if Return = 0  Then
    msgbox "Hurra"
  end if
end if

Min test key bliver ikke oprettet. Jeg forstår det ikke.