.net - クラッシュの原因となるレジストリキーチェック

Question

ここに、レジストリにあるかどうかをチェックし、ある場合は true を返し、そうでない場合は false を返すこの関数があります。ただし、すぐに毎回クラッシュします

R = My.Computer.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

関数全体は次のとおりです。

Private Function CheckKey2() As Boolean
Dim R As RegistryKey
    Dim V() As String
    Dim O As String = vbNullString
    R = My.Computer.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    V = R.GetValueNames()
    R.Close()

    For Each Str As String In V
        O = O & Str & "|"
    Next
    If O.Contains(MyValue) Then
        Return True
    Else
        Return False
    End If
End Function

これが私のレジストリにあるものです

Key Name:          HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Class Name:        <NO CLASS>
Last Write Time:   10/30/2012 - 6:19 AM
Value 0
 Name:            RtHDVCpl
 Type:            REG_SZ
 Data:            C:\Program Files\Realtek\Audio\HDA\RAVCpl64.exe -s

Value 1
 Name:            Kernel and Hardware Abstraction Layer
 Type:            REG_SZ
 Data:            KHALMNPR.EXE

Value 2
  Name:            AdobeAAMUpdater-1.0
  Type:            REG_SZ
  Data:            "C:\Program Files (x86)\Common Files\Adobe\OOBE\PDApp\UWA\UpdaterStartupUtility.exe"

Value 3
  Name:            TortoiseHgOverlayIconServer
  Type:            REG_SZ
  Data:            C:\Program Files\TortoiseHg\TortoiseHgOverlayServer.exe

Value 4
  Name:            Logitech Download Assistant
  Type:            REG_SZ
  Data:            C:\Windows\system32\rundll32.exe C:\Windows\System32\LogiLDA.dll,LogiFetch