If Me.TextBox1.Text = "" Then
            EMsg = "Bitte wählen Sie eine datei aus" & Chr(10) & Chr(13)
        End If
        If Me.TextBox2.Text = "" Then
            EMsg += "Bitte wählen Sie ein Zielverzeichnis"
        End If
 
        If EMsg IsNot Nothing Then
            Result = MessageBox.Show(EMsg, "Datenangabefehler!", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
            If Result = System.Windows.Forms.DialogResult.OK Then
              '******************* Hier komme ich nichtt weiter, hier soll nun 
              ' die unterbrechung rein, bis die Angaben gemacht 
              ' wurden*************************
            End If
        End If

Result = MessageBox.Show("Wollen Sie Wirklich fortfahren?" & Chr(10) & Chr(13) _
  & "Der Prosess kann nicht mehr abgebrochen werden!", "Bitte Beachten Sie!", _
  MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
  MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly)
 
        If Result = System.Windows.Forms.DialogResult.No Then
         ' *********** Hier Soll der Ablauf abgebrochen werden, das Programm 
         ' jedoch weiter ausgeführt werden *************           
        End If
 
        p.StartInfo.FileName = Me.winRarVerzeichnis.Text & "\MeinProgramm.exe"
        PackPath = " e -kb """ & Me.TextBox1.Text & """ """ & Me.TextBox2.Text _
          & """"
        p.StartInfo.Arguments = PackPath
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.CreateNoWindow = True
        Dim sOutput As String
        p.Start()