Результат работы команды powershell в richtextbox

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim arg As String = "get-date"
        Dim connect As New Process
        connect.StartInfo.FileName = "C:\Windows\System32\windowspowershell\v1.0\powershell.exe"
        connect.StartInfo.Arguments = arg
        connect.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        connect.StartInfo.UseShellExecute = False
        connect.StartInfo.RedirectStandardOutput = True
        connect.StartInfo.CreateNoWindow = True
        connect.Start()
        Dim result As String = connect.StandardOutput.ReadToEnd
        connect.WaitForExit()
        TextBox1.Text = Dos_Win(result)
    End Sub
    Public Function Dos_Win(ByVal DosStr As String) As String
        Dim bytes_in() As Byte
        Dim bytes_out() As Byte
        bytes_in = System.Text.Encoding.GetEncoding(1251).GetBytes(DosStr)
        bytes_out = System.Text.Encoding.Convert(System.Text.Encoding.GetEncoding(866), System.Text.Encoding.GetEncoding(1251), bytes_in)
        Dos_Win = System.Text.Encoding.GetEncoding(1251).GetString(bytes_out)
    End Function