Делаю командную строку, как принять ответ в правильной кодировке?

Imports System.Runtime.InteropServices
Public Class Form1
    Private WithEvents MyProcess As Process
    Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        MyProcess.StandardInput.WriteLine("EXIT") 'send an EXIT command to the Command Prompt
        MyProcess.StandardInput.Flush()
        MyProcess.Close()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.AcceptButton = Button1
        MyProcess = New Process
        With MyProcess.StartInfo
            .FileName = "C:\Windows\system32\cmd.EXE"
            .UseShellExecute = False
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
        End With
        MyProcess.Start()
        MyProcess.BeginErrorReadLine()
        MyProcess.BeginOutputReadLine()
        AppendOutputText("Процесс запусчен: " & MyProcess.StartTime.ToString)
    End Sub
 
    Private Sub MyProcess_OutputDataReceived(sender As Object, e As DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
        AppendOutputText(vbCrLf & e.Data)
    End Sub
    Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
        AppendOutputText(vbCrLf & "Error: " & e.Data)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MyProcess.StandardInput.WriteLine(TextBox1.Text)
        MyProcess.StandardInput.Flush()
        TextBox1.Text = ""
    End Sub
    Private Sub AppendOutputText(ByVal text As String)
        If TextBox2.InvokeRequired Then
            Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
            Me.Invoke(myDelegate, text)
        Else
            TextBox2.Text &= (text, System.Text.Encoding.Default)
        End If
    End Sub
End Class

    Private Sub MyProcess_OutputDataReceived(sender As Object, e As DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
        AppendOutputText(vbCrLf & Encoding.Default.GetString(Encoding.Convert(Encoding.GetEncoding(866), Encoding.Default, Encoding.Default.GetBytes(e.Data))))
    End Sub
 
    Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
        AppendOutputText(vbCrLf & "Error: " & vbCrLf & Encoding.Default.GetString(Encoding.Convert(Encoding.GetEncoding(866), Encoding.Default, Encoding.Default.GetBytes(e.Data))))
    End Sub

    Private Sub AppendOutputText(ByVal text As String)
        Invoke(Sub()
                   TextBox2.Text &= text
               End Sub)
    End Sub