Создать шуточную программу, которая при вводе имени на русском языке выдаст, как оно звучит на японском языке

  Dim x As String
        x = TextBox1.Text
        Dim n, i As Integer
        n = x.Length()
        Dim b, Res As String
        Res = ""
        For i = 0 To n - 1
            b = x.Substring(i, 1)
            If b = "а" Then b = "ка"
            If b = "б" Then b = "зу"
            If b = "в" Then b = "ру"
            If b = "г" Then b = "жи"
            If b = "д" Then b = "тэ"
            If b = "е" Then b = "ку"
            If b = "ж" Then b = "су"
            If b = "з" Then b = "з"
            If b = "и" Then b = "ки"
            If b = "к" Then b = "мэ"
            If b = "л" Then b = "та"
            If b = "м" Then b = "рин"
            If b = "н" Then b = "то"
            If b = "о" Then b = "мо"
            If b = "п" Then b = "но"
            If b = "р" Then b = "ши"
            If b = "с" Then b = "ари"
            If b = "т" Then b = "чи"
            If b = "у" Then b = "до"
            If b = "ф" Then b = "лу"
            If b = "х" Then b = "ри"
            If b = "ц" Then b = "ми"
            If b = "ч" Then b = "кэ"
            If b = "ш" Then b = "хи"
            If b = "щ" Then b = "хи"
            If b = "ь" Then b = "зук"
            If b = "ъ" Then b = "зук"
            If b = "ы" Then b = "зук"
            If b = "э" Then b = "мэй"
            If b = "ю" Then b = "фу"
            If b = "я" Then b = "на"
            Res = Res + b
        Next i
        TextBox2.Text = Res