p.StartInfo.FileName = Me.TextBoxSelectRarInstallDir.Text & "\programm.exe"
            PackPath = " e -kb """ & Me.TextBoxSelectProgramm.Text & """ """ & _
              Me.TextBoxSelectDir.Text & """"
            'MessageBox.Show(PackPath)
            p.StartInfo.Arguments = PackPath
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.RedirectStandardError = True
            p.StartInfo.CreateNoWindow = True
            Dim sOutput As String
            Dim sError As String = Nothing
            Dim sErrorHandle As Integer = Nothing
 
            Try
                p.Start()
                Me.ProgressBar.Show()
                sOutput = p.StandardOutput.ReadToEnd()
                sError = p.StandardError.ReadToEnd()
                sErrorHandle = p.ExitCode()
 
                p.WaitForExit()
                p.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try