REDUCIR CÓDIGO.NET

Hola a todos!
Estoy realizando una aplicación donde el cual tiene 3 botones en donde se ejecutan diferentes comandos en cada botón a un mismo archivo (la aplicación es un convertidor). La aplicación ya esta hecha, lo que pasa es que se repite el código varias veces, entonces quisiera saber como podría hacer para que se realizo el evento click en tal botón entonces ejecutar cierto comando.

No se si me dejo entender. Pero de todas maneras adjuntaré el código completo.

pd. Mi problema también está en que no imprime en archivo de texto.
Código
Imports System
Imports System.IO
Imports System.IO.StreamWriter
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Results As String
    Private Delegate Sub delUpdate()
    Private Finished As New delUpdate(AddressOf UpdateText)
 
    Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
        Dim Dir As New FolderBrowserDialog
        If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = Dir.SelectedPath
        End If
    End Sub
 
    Private Sub btndat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndat.Click
        Dim midirectorio As String = TextBox1.Text
        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else
            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\runpkr00.exe", midirectorio & "\runpkr00.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End If
        CMDThread.Start()
 
 
    End Sub
    Private Sub CMDAutomate()
        Dim midirectorio As String = TextBox1.Text
        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = "cmd"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        myprocess.StartInfo = StartInfo
        myprocess.Start()
        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
        Dim comando As String
        Dim cmdir As String
        Dim nombre As String
 
        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
 
            nombre = My.Computer.FileSystem.GetName(file)
            cmdir = "cd " & midirectorio
            comando = "runpkr00.exe -d -s " & nombre
            SW.WriteLine(cmdir)
            SW.WriteLine(comando)
            'Results = SR.ReadToEnd
            'SW.Close()
            'SR.Close()
            'Invoke(Finished)
            MessageBox.Show("Conversión a DAT culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Next
        Results = SR.ReadToEnd
        SW.Close()
        SR.Close()
        Invoke(Finished)
 
    End Sub
 
    Private Sub UpdateText()
 
        'If Me.InvokeRequired = False Then
        Dim midirectorio As String = TextBox1.Text
        Dim strStreamW As Stream = Nothing
        Dim strStreamWriter As StreamWriter = Nothing
        Dim fecha As String = DateTime.Now.ToString("dd MMM HHmmss")
        Dim rutarchivo As String = String.Concat(midirectorio, "log-", fecha & ".txt")
        Windows.Forms.Cursor.Current = Cursors.WaitCursor
        strStreamW = File.Create(rutarchivo)
        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)
        strStreamWriter.WriteLine(Results)
        strStreamWriter.Close()
        ' Else
        '  Dim D As delUpdate = New delUpdate(AddressOf UpdateText)
        ' Me.Invoke(D)
        ' End If
    End Sub
 
    Private Sub btnrinex_Click(sender As System.Object, e As System.EventArgs) Handles btnrinex.Click
        Dim midirectorio As String = TextBox1.Text
        Dim CMD As New Threading.Thread(AddressOf CMDAutomaterin)
        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else
            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End If
        CMD.Start()
    End Sub
 
 
    Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
 
        Dim ThisYear As Integer = Now.Year
        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
        Dim Result As New Dictionary(Of Integer, Integer)
 
        For Day As Integer = 1 To DaysInThisYear
            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
        Next Day
 
        Return Result
    End Function
 
    Private Sub CMDAutomaterin()
        Dim midirectorio As String = TextBox1.Text
        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = "cmd"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        myprocess.StartInfo = StartInfo
        myprocess.Start()
        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
        Dim comandodat As String
        Dim comandorin As String
        Dim cmdir As String
        Dim nombre As String
        Dim renombre As String
 
        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
 
            nombre = Path.GetFileNameWithoutExtension(file)
            renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
            Dim DayOfYear As Integer = Mid(nombre, 5, 3)
            Dim semgps As Integer = Me.GPSDictionary(DayOfYear)
 
            cmdir = "cd " & midirectorio
            comandodat = "runpkr00.exe -g -d " & nombre & ".t01"
            comandorin = "teqc.exe +nav " & renombre & ".14n -O.int 5 -O.dec 5 -O.ag IGN-PERU -O.o CPG -week " & semgps & " -tr d " & nombre & ".tgd> " & renombre & ".14o"
            SW.WriteLine(cmdir)
            SW.WriteLine(comandodat)
            SW.WriteLine(comandorin)
            'Results = SR.ReadToEnd
            ' SW.Close()
            'SR.Close()
            'Invoke(Finished)
            MessageBox.Show("Conversión a RINEX culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Next
        Results = SR.ReadToEnd
        SW.Close()
        SR.Close()
        Invoke(Finished)
 
    End Sub
 
 
 
    Private Sub btntqc_Click(sender As Object, e As EventArgs) Handles btntqc.Click
        Dim midirectorio As String = TextBox1.Text
        Dim CMD As New Threading.Thread(AddressOf CMDAutomateqc)
        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else
            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End If
        CMD.Start()
    End Sub
 
    Private Sub CMDAutomateqc()
        Dim midirectorio As String = TextBox1.Text
        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = "cmd"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        myprocess.StartInfo = StartInfo
        myprocess.Start()
        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
        Dim comandorin As String
        Dim cmdir As String
        Dim nombre As String
        Dim renombre As String
 
        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
 
            nombre = Path.GetFileNameWithoutExtension(file)
            renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
 
            If System.IO.File.Exists(midirectorio & "\" & renombre & ".14n") And System.IO.File.Exists(midirectorio & "\" & renombre & ".14o") Then
                cmdir = "cd " & midirectorio
                comandorin = "teqc.exe -nav " & renombre & ".14n +qc " & renombre & ".14o"
                SW.WriteLine(cmdir)
                SW.WriteLine(comandorin)
                'Results = SR.ReadToEnd
                'SW.Close()
                'SR.Close()
                'Invoke(Finished)
                MessageBox.Show("Quality Check." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            Else
                MessageBox.Show("Se necesitan de los archivos RINEX (14n y 14o)" & vbNewLine & "Solución: Clic en el Botón RINEX.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
            End If
        Next
        Results = SR.ReadToEnd
        SW.Close()
        SR.Close()
        Invoke(Finished)
 
    End Sub