Транслитерация английского текста в русский

    Public Function CHPU(ByVal str As String) As String
        Dim SB As New System.Text.StringBuilder
        Dim Rus As String() = {"а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _
        "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _
        "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _
        "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", _
        "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я"}
        Dim Eng As String() = {"a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", _
        "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
        "sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", _
        "E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", _
        "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA"}
        For Each ch In str
            If Char.IsLetter(ch) AndAlso AscW(ch) > 192 Then
                SB.Append(Eng(Array.IndexOf(Rus, ch.ToString)))
            Else
                SB.Append(ch)
            End If
        Next
        Return SB.ToString
    End Function

Public Class Form1
    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim s As String = Trim(TextBox1.Text.ToLower)
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Space) Then
            s = s.Replace("n", "н").Replace("e", "е").Replace("sh", "ш").Replace("v", "в").Replace("l", "л").Replace("i", "и").Replace("s", "с").Replace("'", "ь")
            TextBox2.Text = s
        End If
    End Sub
End Class