ASCII CRYPTER [CODE SNIP]

Dim a, b, c, d, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, 貓, č, ມ, δ, 이, 馬, 亞, ǎ, ձ, ù, Ƹ, 從, ř, 彡, 洲, 誤, म, ş, 頭, ա, 物, ຍ, ö, ஜ, σ, ψ As String
        Dim encrypt As String
        a = "a"
        b = "b"
        c = "c"
        d = "d"
        f = "f"
        g = "g"
        h = "h"
        i = "i"
        j = "j"
        k = "k"
        l = "l"
        m = "m"
        n = "n"
        o = "o"
        p = "p"
        q = "q"
        r = "r"
        s = "s"
        t = "t"
        u = "u"
        v = "v"
        w = "w"
        x = "x"
        y = "y"
        z = "z"
        encrypt = Input.Text
        encrypt = Replace(encrypt, a, "貓")
        encrypt = Replace(encrypt, b, "č")
        encrypt = Replace(encrypt, c, "ມ")
        encrypt = Replace(encrypt, d, "δ")
        encrypt = Replace(encrypt, f, "馬")
        encrypt = Replace(encrypt, g, "亞")
        encrypt = Replace(encrypt, h, "ǎ")
        encrypt = Replace(encrypt, i, "ձ")
        encrypt = Replace(encrypt, j, "ù")
        encrypt = Replace(encrypt, k, "Ƹ")
        encrypt = Replace(encrypt, l, "從")
        encrypt = Replace(encrypt, m, "ř")
        encrypt = Replace(encrypt, n, "彡")
        encrypt = Replace(encrypt, o, "洲")
        encrypt = Replace(encrypt, p, "誤")
        encrypt = Replace(encrypt, q, "म")
        encrypt = Replace(encrypt, r, "ş")
        encrypt = Replace(encrypt, s, "頭")
        encrypt = Replace(encrypt, t, "ա")
        encrypt = Replace(encrypt, u, "物")
        encrypt = Replace(encrypt, v, "ຍ")
        encrypt = Replace(encrypt, w, "ö")
        encrypt = Replace(encrypt, x, "ஜ")
        encrypt = Replace(encrypt, y, "σ")
        encrypt = Replace(encrypt, z, "ψ")
        Output.Text = encrypt
    End Sub
End Class