Key = My.Computer.Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Wow6432Node\Mozilla").GetSubKeyNames()
            For i As Integer = 0 To Key.Length - 1
                If Key(i).contains("Mozilla Firefox") Then
                    Version = My.Computer.Registry.LocalMachine.OpenSubKey( _
                      "SOFTWARE\Wow6432Node\Mozilla\" & Key(i)).GetValue( _
                      "CurrentVersion")
                    Pfad = My.Computer.Registry.LocalMachine.OpenSubKey( _
                    "SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox\" & Version & _
                    "\Main").GetValue("PathToExe")
                    System.Diagnostics.Process.Start(Pfad)
                    Exit For
                End If
            Next