Public Function GetWinRarPath() As String
        Try
            Dim ProgramName As String = "WinRAR"
            Dim strUninstallList As String = _
              "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" _
              'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uni
            ' nstall
            Dim obj As Object
            Dim RegKeyUninstallList As RegistryKey = Registry.LocalMachine
            Dim SubKeyUninstallList As RegistryKey = Registry.LocalMachine
 
            For Each strSubKey As String In RegKeyUninstallList.OpenSubKey( _
              strUninstallList).GetSubKeyNames()
                Debug.Print(strSubKey)
                Try
                    obj = SubKeyUninstallList.OpenSubKey(strUninstallList & "\" _
                      & strSubKey).GetValue("DisplayName")
 
                    If obj IsNot Nothing Then
                        'Debug.Print(obj.ToString)
                        If obj.ToString().ToLower().Contains( _
                          ProgramName.ToLower()) Then
                            Try
                                obj = SubKeyUninstallList.OpenSubKey( _
                                  strUninstallList & "\" & strSubKey).GetValue( _
                                  "InstallLocation")
                                If IO.Directory.Exists(obj.ToString) Then
                                    Return obj.ToString
                                Else
                                    Return ""
                                End If
                            Catch
                                Return ""
                            End Try
                            Return True
                        End If
                    End If
                Catch
                    '
                End Try
            Next
            Return ""
        Catch ex As Exception
            Return ""
        End Try
    End Function