Encoding problem into filename when download file vb .NET

Public Sub DownloadEachFile()
If ftpPortNo > 0 Then
ftpAdres = "ftp://" & ftpAdres & ":" & ftpPortNo & "/"
Else
ftpAdres = "ftp://" & ftpAdres & "/"
End If

Dim fwr As Net.FtpWebRequest = Net.FtpWebRequest.Create(ftpAdres)
fwr.Credentials = New NetworkCredential(ftpKullanıcıAdı.Trim, ftpŞifre.Trim)
fwr.KeepAlive = True
fwr.Method = WebRequestMethods.Ftp.ListDirectory
fwr.Proxy = Nothing

Try

Dim sr As New IO.StreamReader(fwr.GetResponse().GetResponseStream())
Dim lst = sr.ReadToEnd().Split(vbNewLine)
For Each file As String In lst

file = file.Trim() 'remove any whitespace
Dim LFile As String = YerelDosyaAdı(file.Trim)
If file = ".." OrElse file = "." Then Continue For
Dim fwr2 As Net.FtpWebRequest = Net.FtpWebRequest.Create(ftpAdres & file.Trim)
fwr2.Credentials = fwr.Credentials
fwr2.KeepAlive = True
fwr2.Method = WebRequestMethods.Ftp.DownloadFile
fwr2.Proxy = Nothing

Try
Using FtpResponse As FtpWebResponse = CType(fwr2.GetResponse, FtpWebResponse)
Using ResponseStream As IO.Stream = FtpResponse.GetResponseStream
Using fs As New IO.FileStream("C:\COSTOMERDB\" & LFile.Trim, FileMode.Create)
Dim buffer(2047) As Byte
Dim read As Integer = 0
Do

read = ResponseStream.Read(buffer, 0, buffer.Length)
fs.Write(buffer, 0, read)


Loop Until read = 0
ResponseStream.Close()
fs.Flush()
fs.Close()

End Using
ResponseStream.Close()

End Using
End Using

Catch

End Try
Next

sr.Close()
Catch ex As Exception

End Try
End Sub