Кодировка при загрузке файла на FTP сервер

Public Sub FTPUpload(ByVal Host As String, ByVal Name As String, ByVal Pass As String, ByVal FileName As String)
        Dim Request As FtpWebRequest = CType(WebRequest.Create(Host), FtpWebRequest)
        Request.Credentials = New NetworkCredential(Name, Pass)
        Request.Method = WebRequestMethods.Ftp.UploadFile
        Dim strFile As StreamReader = New StreamReader(FileName)
        Dim Buffer As Byte() = Encoding.Unicode.GetBytes(strFile.ReadToEnd)
        strFile.Close()
        Dim strRequest As Stream = Request.GetRequestStream
        strRequest.Write(Buffer, 0, Buffer.Length)
        strRequest.Close()
    End Sub

My.Computer.Network.UploadFile(Тут параметры, разберетесь без труда)

Public Sub FTPAppend(ByVal Host As String, ByVal Name As String, ByVal Pass As String, ByVal AddValue As String)
        Dim Request As FtpWebRequest = CType(WebRequest.Create(Host), FtpWebRequest)
        Request.Credentials = New NetworkCredential(Name, Pass)
        Request.Method = WebRequestMethods.Ftp.AppendFile
        Dim Buffer As Byte() = Encoding.UTF8.GetBytes(AddValue)
        Dim strRequest As Stream = Request.GetRequestStream
        strRequest.Write(Buffer, 0, Buffer.Length)
        strRequest.Close()
    End Sub

Dim Buffer As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes(strFile.ReadToEnd)

Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("host"), System.Net.FtpWebRequest)
        request.Credentials = New System.Net.NetworkCredential("login", "pass")
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim file() As Byte = System.IO.File.ReadAllBytes("filename")
        Dim strz As System.IO.Stream = request.GetRequestStream()
        strz.Write(file, 0, file.Length)
        strz.Close()
        strz.Dispose()

Dim Request As FtpWebRequest = CType(WebRequest.Create(Host), FtpWebRequest)
        Request.Credentials = New NetworkCredential(Name, Pass)
        Request.Method = WebRequestMethods.Ftp.DownloadFile
        Dim Response As FtpWebResponse = CType(Request.GetResponse, FtpWebResponse)
        Dim strFile As Stream = Response.GetResponseStream
        Dim strRead As StreamReader = New StreamReader(strFile)
        Dim strWrite As StreamWriter = New StreamWriter(SavePath, False, Encoding.Unicode)
        strWrite.Write(strRead.ReadToEnd)
        strFile.Close()
        strRead.Close()
        strWrite.Close()

Dim Buffer As Byte() = Encoding.Default.GetBytes(strFile.ReadToEnd)