Imports Microsoft.Win32

Module Module1

    ' Class1 の概要の説明です。
    Sub Main()
        ' 操作するレジストリ・キーの名前
        Dim rKeyName As String = "SOFTWARE\Microsoft\.NETFramework"
        ' 取得処理を行う対象となるレジストリの値の名前
        Dim rGetValueName As String = "InstallRoot"

        ' レジストリの取得
        Try
            ' レジストリ・キーのパスを指定してレジストリを開く
            Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey(rKeyName)

            ' レジストリの値を取得
            Dim location As String = CStr(rKey.GetValue(rGetValueName))

            ' 開いたレジストリを閉じる
            rKey.Close()

            ' コンソールに取得したレジストリの値を表示
            Console.WriteLine(location)
        Catch ex As NullReferenceException
            ' レジストリ・キーまたは値が存在しない
            Console.WriteLine("レジストリ［" + rKeyName + "］の［" + rGetValueName + "］がありません！")
        End Try
    End Sub

End Module