C# と VB.NET の質問掲示板

結局以下でいきました。

 Private Function mFunGetOracle_Home() As String
        Dim KeyName As String = "SOFTWARE\ORACLE"
        Dim Name As String = "ORACLE_HOME"

        Try
            Dim wkReg As Microsoft.Win32.RegistryKey

            'HKEY_LOCAL_MACHINE配下のキーを操作する
            wkReg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(KeyName)
            ' <<< ***** For Debug ****
            Console.WriteLine("{0}={1}", Name, wkReg.GetValue(Name))
            ' >>> ***** For Debug ****

            mFunGetOracle_Home = wkReg.GetValue(Name)

            wkReg.Close()
        Catch ex As NullReferenceException
            Console.WriteLine("エラー:{0}", ex.Message)
        Catch ex As Exception
            Console.WriteLine("エラー:{0}", ex.Message)
        End Try
    End Function