run batch command on vb.net and show results in richtextbox

'for more help contact me at wisop112@hotmail.com, name: Wisdom oparaocha

   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

'create 1 textbox1
'create 1 button1
'create 1 richtextbox1
'in the start up directory of this program make a file could 123.text