Загружалка не сервак Иванки

Imports System.Net
Public Class Form1

    Dim FilePaths As String()
    Dim Cyrillic As String = "абвгдеёжзийклмопрстуфхцчшщъыьэюя.,:/\*?<>| "

    Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
        If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            If OpenFile.FileNames.Length > 1 Then
                txtFilePath.Text = "Слищкам много файлов..."
                FilePaths = OpenFile.FileNames
            Else
                txtFilePath.Text = OpenFile.FileName
            End If
        End If
        If txtFolder.Text.Length = 0 Then
            btnDownload.Enabled = False
        Else
            For Each Char_El In Cyrillic
                If txtFolder.Text.ToLower.Contains(Char_El) Then
                    btnDownload.Enabled = False
                    GoTo End1
                End If
            Next
            btnDownload.Enabled = True
        End If
End1:
    End Sub

    Private Sub txtFolder_TextChanged(sender As Object, e As EventArgs) Handles txtFolder.TextChanged
        If Not txtFilePath.Text = "" Then
            If txtFolder.Text.Length = 0 Then
                btnDownload.Enabled = False
            Else
                For Each Char_El In Cyrillic
                    If txtFolder.Text.ToLower.Contains(Char_El) Then
                        btnDownload.Enabled = False
                        GoTo End1
                    End If
                Next
                btnDownload.Enabled = True
            End If
        Else
        End If
End1:
    End Sub

    Private Sub btnDownload_Click(sender As Object, e As EventArgs) Handles btnDownload.Click
        On Error Resume Next
        Dim FileInfo As IO.FileInfo
        If Not txtFilePath.Text = "Слищкам много файлов..." Then
            FileInfo = New IO.FileInfo(txtFilePath.Text)
            Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://mario68k.ucoz.net/" + txtFolder.Text + "/"), FtpWebRequest)
            'Логин и пароль
            request.Credentials = New NetworkCredential("emario68k", "legenda777")
            'Передаем фтп серверу команду MKD- для создания папки
            request.Method = WebRequestMethods.Ftp.MakeDirectory
            Dim responce As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
            My.Computer.Network.UploadFile(txtFilePath.Text, "ftp://mario68k.ucoz.net/" & txtFolder.Text & "/" & Transliteration(FileInfo.Name), "emario68k", "legenda777", True, 100, FileIO.UICancelOption.DoNothing)
        Else
            Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://mario68k.ucoz.net/" + txtFolder.Text + "/"), FtpWebRequest)
            'Логин и пароль
            request.Credentials = New NetworkCredential("emario68k", "legenda777")
            'Передаем фтп серверу команду MKD- для создания папки
            request.Method = WebRequestMethods.Ftp.MakeDirectory
            Dim responce As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
            For Each Strin In FilePaths
                FileInfo = New IO.FileInfo(Strin)
                My.Computer.Network.UploadFile(Strin, "ftp://mario68k.ucoz.net/" & txtFolder.Text & "/" & Transliteration(FileInfo.Name), "emario68k", "legenda777", True, 100, FileIO.UICancelOption.DoNothing)
            Next
        End If
        MsgBox("Готово!", MsgBoxStyle.Information, "*_*")
    End Sub

    Function Transliteration(ByVal A As String) As String
        A = A.ToLower          'Удалить, если нужен верхний регистр'
        A = A.Replace(" ", "_")
        A = A.Replace("a", "a")
        A = A.Replace("б", "b")
        A = A.Replace("в", "v")
        A = A.Replace("г", "g")
        A = A.Replace("д", "d")
        A = A.Replace("е", "e")
        A = A.Replace("ё", "jo")
        A = A.Replace("ж", "zh")
        A = A.Replace("з", "z")
        A = A.Replace("и", "i")
        A = A.Replace("й", "j")
        A = A.Replace("к", "k")
        A = A.Replace("л", "l")
        A = A.Replace("м", "m")
        A = A.Replace("н", "n")
        A = A.Replace("о", "o")
        A = A.Replace("п", "p")
        A = A.Replace("р", "r")
        A = A.Replace("с", "s")
        A = A.Replace("т", "t")
        A = A.Replace("у", "u")
        A = A.Replace("ф", "f")
        A = A.Replace("х", "h")
        A = A.Replace("ц", "c")
        A = A.Replace("ч", "ch")
        A = A.Replace("ш", "sh")
        A = A.Replace("щ", "sz")
        A = A.Replace("ь", "")
        A = A.Replace("ъ", "#")
        A = A.Replace("ы", "y")
        A = A.Replace("э", "eh")
        A = A.Replace("ю", "ju")
        A = A.Replace("я", "ja")
        'A = A.Replace("А", "A")   А в верхнем регистре'
        Return (A)
    End Function
End Class