環境：WindowsXp SP3、VB6

OCXをVBでレジストリに登録するために、あらかじめ登録する値を読み込み無ければ登録するという作業をしています

------------------------------------------------
Dim oShell,bKey

On Error Resume Next

Set oShell=CreateObject("WScript.Shell")
if Not oShell is Nothing then
    with oShell
        bKey=.RegRead(レジストリキー)
        if err.number<>0 then
            .RegWrite レジストリキー,値,データ型
　　　　end if
    end with
end if
set oShell=nothing
------------------------------------------------

ところが、RegReadで「開いて読み取ることができません」と出てしまいます
レジストリキーの存在は確かでアクセス権もフルアクセスです

何か間違っているのでしょうか？
よろしくお願いします

名前が規定値の場合は最後に\をつけましょう＾＾；