Составная команда CMD

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Shell("cmd.exe /k" + TextBox1.Text + CheckBox1.Text + CheckBox2.Text)
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            CheckBox1.Text = " -a"
        Else
            CheckBox1.Text = ""
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            CheckBox2.Text = " -t"
        Else
            CheckBox2.Text = ""
        End If
    End Sub
End Class

 Dim List_of_arguments As New List(Of String)

 Dim command As String = "ping 8.8.8.8"

  Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged 'сюда вписать все нужные checkbox'ы
        Dim cb = CType(sender, CheckBox)
        If cb.Checked Then
            List_of_arguments.Add(cb.Text) 'если checkbox отмечен, то его текст добавляется в список
        Else
            List_of_arguments.Remove(cb.Text) 'если нет, то удаляется из списка
        End If
        TextBox2.Text = command & " " & String.Join(" ", List_of_arguments) ' объединяем список аргументов с командой и выводим в textbox2
    End Sub

 Shell("cmd.exe /k " & TextBox2.Text & " " & TextBox3.Text)

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim SVD As New SaveFileDialog With {
            .AddExtension = True,
            .Filter = "Txt files (*.txt)|*.txt|All files (*.*)|*.*",
            .InitialDirectory = Application.StartupPath,
            .FilterIndex = 0
        }
        If SVD.ShowDialog = DialogResult.OK Then
            TextBox1.Text = SVD.FileName
        End If
    End Sub

Dim openFileDlg As New OpenFileDialog
openFileDlg.Title = "Открыть файл"
openFileDlg.FileName = ""
openFileDlg.Filter = "Файлы MS Access |*.mdb" 'пример фильтра файлов
openFileDlg.InitialDirectory = путь к директории, с которой начинается обзор 
openFileDlg.Multiselect = False
 
If openFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then 'Выбираем файл
    TextBox1.Text = openFileDlg.FileName
End If

List_of_arguments.ToArray

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
        For Each file As String In My.Computer.FileSystem.GetFiles(TextBox1.Text)
            ListBox1.Items.Add(My.Computer.FileSystem.GetFileInfo(file).Name)
        Next
    End Sub

 If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            For Each file In IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.*", IO.SearchOption.TopDirectoryOnly) 'где *.* - маска искомых файлов, а SearchOption.TopDirectoryOnly - не искать в подкаталогах
                ListBox1.Items.Add(IO.Path.GetFileName(file)) ' добавляем только имя с расширением, без полного пути
            Next
        End If

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Shell("cmd.exe /k" & TextBox1.Text & " " & ListBbox1)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim i As Integer
    Dim AllListBoxText As String = " "
    For i = 0 to ListBox1.Items.Count - 1
        AllListBoxText &= ListBox1.Items(i).ToString & " "
    Next i
 
    Shell("cmd.exe /k" & TextBox1.Text & AllListBoxText)
    ...
End Sub

Shell("cmd.exe /k" & TextBox1.Text & " " & String.Join(" ", ListBox1.Items.OfType(Of String).ToArray))