Как программно запустить выполняемую команду в командной строке

Public Class Form1
    Dim Pu As String = "Zap.txt"
    Dim Arr(), V, Arr1() As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'клавы на английский
            System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System _
             .Globalization.CultureInfo.GetCultureInfo(1033))
 
            If IO.File.Exists(Pu) Then
                Arr = IO.File.ReadAllLines(Pu, System.Text.Encoding.Default)
                Proverka(Arr)
            Else
                IO.File.Create(Pu)
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Sub Proverka(ByVal GV() As String)
 
        Dim q1 As String
        Try
            GV = (IO.File.ReadAllLines(Pu, System.Text.Encoding.Default))
            Dim mass13 = From nn In GV Where Strings.LTrim(nn) <> "" 'создаем новый массив с условием
            For i = 0 To mass13.Count - 1
                q1 = mass13(i)
                ListBox1.Items.Add(q1)
            Next
            Label1.Text = "Всего: " & mass13.Count
            IO.File.WriteAllLines(Pu, mass13, System.Text.Encoding.Default)
        Catch ex As Exception
            FileOpen(1, Pu, OpenMode.Append)
            Print(1, "", vbNewLine)
            FileClose()
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        Dim Proc() As Process
        Dim ModuleName, ProcName As String
        ModuleName = "cmd.exe"
        ProcName = System.IO.Path.GetFileNameWithoutExtension(ModuleName)
        Proc = Process.GetProcessesByName(ProcName)
        If Proc.Length > 0 Then
 
        Else
            Process.Start("cmd")
        End If
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim V1, V2 As String
        Try
            V = ListBox1.SelectedItem
            Dim ch() As Char = V.ToCharArray
            For i = 0 To ch.Length - 1
                If ch(i) <> "1" Then
                    V2 += CStr(ch(i))
                Else
                    Exit For
                End If
            Next
            V = Strings.Trim(V2)
 
            My.Computer.Clipboard.SetText(V)
            V1 = My.Computer.Clipboard.GetText
            Label1.Text = V1
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i = 0 To ListBox1.Items.Count - 1
            ReDim Preserve Arr(i)
            Arr(i) = ListBox1.Items.Item(i)
        Next
        IO.File.WriteAllLines(Pu, Arr, System.Text.Encoding.Default)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text <> "" Then
            ListBox1.Items.Add(TextBox1.Text)
        End If
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start(Pu)
     End Sub
 
End Class