Зависает окно cmd, хотя не должно

Public Class Form1
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim Процесс As New Process
        Процесс.StartInfo.FileName = "C:\Program\Program.exe"
        Процесс.StartInfo.Arguments = "-url=http://ya.ru/"
        Процесс.StartInfo.RedirectStandardOutput = True
        Процесс.StartInfo.UseShellExecute = False
        Процесс.Start()
 
        Dim Поток As IO.StreamReader = Процесс.StandardOutput
        Dim Строка As String
 
        Do Until Поток.EndOfStream
            Строка = Поток.ReadLine()
            RichTextBox1.AppendText(Строка & vbNewLine)
        Loop
 
        Процесс.WaitForExit()
        Процесс.Close()
    End Sub
End Class