p.Start() 
 
        Dim so As IO.StreamReader = p.StandardOutput
        While so.Peek > -1
            Dim line As String = so.ReadLine()
            If Not String.IsNullOrWhiteSpace(line) Then
                RichTextBox1.AppendText(line & vbCrLf)
            End If
        End While
        p.WaitForExit()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist