vb.net транслитерация

Dim Source As String = "Строка для транслитерации"

        Source = Source.Replace("а", "a")
        Source = Source.Replace("б", "b")
        Source = Source.Replace("в", "v")
        Source = Source.Replace("г", "g")
        Source = Source.Replace("д", "d")
        Source = Source.Replace("е", "e")
        Source = Source.Replace("ё", "yo")
        Source = Source.Replace("ж", "zh")
        Source = Source.Replace("з", "z")
        Source = Source.Replace("и", "i")
        Source = Source.Replace("к", "k")
        Source = Source.Replace("л", "l")
        Source = Source.Replace("м", "m")
        Source = Source.Replace("н", "n")
        Source = Source.Replace("о", "o")
        Source = Source.Replace("п", "p")
        Source = Source.Replace("р", "r")
        Source = Source.Replace("с", "s")
        Source = Source.Replace("т", "t")
        Source = Source.Replace("у", "u")
        Source = Source.Replace("ф", "f")
        Source = Source.Replace("х", "kh")
        Source = Source.Replace("ц", "ts")
        Source = Source.Replace("ч", "ch")
        Source = Source.Replace("ш", "sh")
        Source = Source.Replace("щ", "shch")
        Source = Source.Replace("ы", "y")
        Source = Source.Replace("э", "a")
        Source = Source.Replace("ю", "yu")
        Source = Source.Replace("я", "ya")
        Source = Source.Replace("ь", "")
        Source = Source.Replace("ъ", "")

        Source = Source.Replace("А", "A")
        Source = Source.Replace("Б", "B")
        Source = Source.Replace("В", "V")
        Source = Source.Replace("Г", "G")
        Source = Source.Replace("Д", "D")
        Source = Source.Replace("Е", "E")
        Source = Source.Replace("Ё", "Yo")
        Source = Source.Replace("Ж", "Zh")
        Source = Source.Replace("З", "Z")
        Source = Source.Replace("И", "I")
        Source = Source.Replace("К", "K")
        Source = Source.Replace("Л", "L")
        Source = Source.Replace("М", "M")
        Source = Source.Replace("Н", "N")
        Source = Source.Replace("О", "O")
        Source = Source.Replace("П", "P")
        Source = Source.Replace("Р", "R")
        Source = Source.Replace("С", "S")
        Source = Source.Replace("Т", "T")
        Source = Source.Replace("У", "U")
        Source = Source.Replace("Ф", "F")
        Source = Source.Replace("Х", "Kh")
        Source = Source.Replace("Ц", "Ts")
        Source = Source.Replace("Ч", "Ch")
        Source = Source.Replace("Ш", "Sh")
        Source = Source.Replace("Щ", "Shch")
        Source = Source.Replace("Ы", "Y")
        Source = Source.Replace("Э", "A")
        Source = Source.Replace("Ю", "Yu")
        Source = Source.Replace("Я", "Ya")
        Source = Source.Replace("Ь", "")
        Source = Source.Replace("Ъ", "")

        Label1.Text = Source

вот как-то так...