How to look for a registry key? I need to look from both 32 and 64 bit systems with 3 diffrent GUID's. I need to return the one it found the InstallLocation in to a TextBox. I have made the following code. Tho i don't know if it's actually usable. I am a beginner at this. Please help.

```
Imports Microsoft.Win32
Imports System.Net
Imports System

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Is64Bit As Boolean

        Is64Bit = String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))

        If Not Is64Bit Then
            Try
                Dim rk32_1 As RegistryKey
                rk32_1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812EU}_is1")
                Dim il_rk32_1 As String = rk32_1.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
            Try
                Dim rk32_2 As RegistryKey
                rk32_2 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1")
                Dim il_rk32_2 As String = rk32_2.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
            Try
                Dim rk32_3 As RegistryKey
                rk32_3 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1")
                Dim il_rk32_3 As String = rk32_3.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
        End If

        If Is64Bit Then
            Try
                Dim rk64_1 As RegistryKey
                rk64_1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812EU}_is1")
                Dim il_rk64_1 As String = rk64_1.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
            Try
                Dim rk64_2 As RegistryKey
                rk64_2 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1")
                Dim il_rk64_2 As String = rk64_2.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
            Try
                Dim rk64_3 As RegistryKey
                rk64_3 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1")
                Dim il_rk64_3 As String = rk64_3.GetValue("InstallLocation").ToString

            Catch ex As Exception

            End Try
        End If

    End Sub

End Class

```