如何从cmd外壳读取VB.NET中的cmd输出？

    Dim p As Process = New Process
    Dim output As String

    With p
        .StartInfo.CreateNoWindow = True
        .StartInfo.RedirectStandardOutput = True
        .StartInfo.UseShellExecute = False
        .StartInfo.FileName = fileName
        .StartInfo.Arguments = args
        .Start()
        output = .StandardOutput.ReadToEnd
        .WaitForExit()
    End With

    Return output

xCmd = \"cmd.exe /c echo msgcontent \"| c:\\gnokii\\gnokii.exe --sendsms 12345678 > file.txt\"

xCmd = \"cmd.exe /c echo msgcontent \"| c:\\gnokii\\gnokii.exe --sendsms 12345678 2> file.txt\"

\'create 1 textbox1
\'create 1 button1
\'create 1 richtextbox1
\'in the start up directory of this program make a file could 123.text
\'------------------------------------------------------------------------
Dim read As System.IO.StreamReader
read = File.OpenText(Application.StartupPath & \"\\123.text\")

Shell(\"cmd.exe /c\" & TextBox1.Text + \">123.text\")
Do Until read.EndOfStream
    RichTextBox1.Text = read.ReadLine & vbCrLf
Loop
\'--------------------------------------------------------------------------
\'you can add on the top to create the file if it does not exists,   

If IO.File.Exists(Application.StartupPath & \"\\123.text\") = False Then
    IO.File.Create(Application.StartupPath & \"\\123.text\")
End If
\'-------------------------------------------------------------------------

Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Shell(\"cmd.exe /c \" & TextBox1.Text + \" > c:\\temp\\output.txt\")
    Dim read As System.IO.StreamReader
    read = File.OpenText(\"c:\\temp\\output.txt\")
    RichTextBox1.Clear()
    Do Until read.EndOfStream
        RichTextBox1.Text += read.ReadLine & vbCrLf
    Loop
    RichTextBox1.Select(RichTextBox1.Text.Length, 0)
    RichTextBox1.ScrollToCaret()
End Sub
End Class