alphaEncode

Dim StrArray() As String = {"a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"}
        For Each Str As String In StrArray

            If txtInput.Text.Contains("") Then
                txtOutput.Text += ""
            End If

            'a
            If txtInput.Text.Contains("a") Then

                txtOutput.Text += "[[399197913893]]"

            End If


            'b
            If txtInput.Text.Contains("b") Then
                txtOutput.Text += "[[115345298505025]]"

            End If





            'c
            If txtInput.Text.Contains("c") Then

                txtOutput.Text += "[[53872404042]]"

            End If



            'd
            If txtInput.Text.Contains("d") Then

                txtOutput.Text += "[[226910642728]]"

            End If

            'e
            If txtInput.Text.Contains("e") Then

                txtOutput.Text += "[[140775945956538]]"


            End If

            'f
            If txtInput.Text.Contains("f") Then

                txtOutput.Text += "[[136046106447549]]"

            End If




            'g
            If txtInput.Text.Contains("g") Then

                txtOutput.Text += "[[119431374760220]]"


            End If


            'h
            If txtInput.Text.Contains("h") Then

                txtOutput.Text += "[[205082339544090]]"

            End If


            'i
            If txtInput.Text.Contains("i") Then

                txtOutput.Text += "[[432883640525]]"

            End If

            'j
            If txtInput.Text.Contains("j") Then

                txtOutput.Text += "[[228315337208110]]"


            End If

            'k
            If txtInput.Text.Contains("k") Then

                txtOutput.Text += "[[56926372437]]"

            End If

            'l
            If txtInput.Text.Contains("l") Then

                txtOutput.Text += "[[221310038416]]"

            End If


            'm
            If txtInput.Text.Contains("m") Then

                txtOutput.Text += "[[161672657237726]]"


            End If


            'n
            If txtInput.Text.Contains("n") Then

                txtOutput.Text += "[[203933512990765]]"

            End If

            'o
            If txtInput.Text.Contains("o") Then

                txtOutput.Text += "[[116564658357124]]"

            End If


            'p
            If txtInput.Text.Contains("p") Then

                txtOutput.Text += "[[64245738440]]"


            End If

            'q
            If txtInput.Text.Contains("q") Then

                txtOutput.Text += "[[196390043757013]]"

            End If


            'r
            If txtInput.Text.Contains("r") Then

                txtOutput.Text += "[[111884958838844]]"

            End If


            's
            If txtInput.Text.Contains("s") Then

                txtOutput.Text += "[[136198113087158]]"

            End If

            't
            If txtInput.Text.Contains("t") Then

                txtOutput.Text += "[[334073456605673]]"

            End If

            'u
            If txtInput.Text.Contains("u") Then

                txtOutput.Text += "[[172843133886]]"

            End If

            'v
            If txtInput.Text.Contains("v") Then

                txtOutput.Text += "[[77189649729]]"

            End If

            'w
            If txtInput.Text.Contains("w") Then

                txtOutput.Text += "[[116928513730]]"

            End If

            'x
            If txtInput.Text.Contains("x") Then
                'txtInput.Text = txtInput.Text + "x"
                txtOutput.Text += "[[108075899233912]]"

            End If

            'y
            If txtInput.Text.Contains("y") Then

                txtOutput.Text += "[[140715832616884]]"

            End If

            'z
            If txtInput.Text.Contains("z") Then

                txtOutput.Text += "[[165724910215]]"

            End If




        Next