FB Chat Generator VB.NET Version coded by Anon?M ID

'FB Chat Generator VB.NET Version coded by Anon?M ID
'you need 2 textboxes
'put this code on input textbox text changed event
Dim str As String, Newstr As String = Nothing
                str = TextBox1.Text
                For Each StrText As String In str
                    Select Case True

                        Case StrText = "A" : StrText = "[[244961858909298]]" : Case StrText = "B" : StrText = "[[344113652270150]]" : Case StrText = "C" : StrText = "[[344991278847613]]" : Case StrText = "D" : StrText = "[[164461493653696]]" : Case StrText = "E" : StrText = "[[196752423751220]]" : Case StrText = "F" : StrText = "[[301630573215430]]" : Case StrText = "G" : StrText = "[[251496118250464]]" : Case StrText = "H" : StrText = "[[266394220086654]]" : Case StrText = "I" : StrText = "[[164866556948132]]" : Case StrText = "J" : StrText = "[[180599335371968]]" : Case StrText = "K" : StrText = "[[209067005843651]]" : Case StrText = "L" : StrText = "[[238594039545396]]" : Case StrText = "M" : StrText = "[[147702285338528]]" : Case StrText = "N" : StrText = "[[309221402452022]]" : Case StrText = "O" : StrText = "[[180901405340714]]" : Case StrText = "P" : StrText = "[[246506925416551]]" : Case StrText = "Q" : StrText = "[[333343613344059]]" : Case StrText = "R" : StrText = "[[123128367803569]]" : Case StrText = "S" : StrText = "[[316143388416019]]" : Case StrText = "T" : StrText = "[[334073456605673]]" : Case StrText = "U" : StrText = "[[199626093460643]]" : Case StrText = "V" : StrText = "[[224202614323263]]" : Case StrText = "W" : StrText = "[[336032459740792]]" : Case StrText = "X" : StrText = "[[205228226232732]]" : Case StrText = "Y" : StrText = "[[142420399202282]]" : Case StrText = "Z" : StrText = "[[157919817645224]]" : Case StrText = "a" : StrText = "[[244961858909298]]" : Case StrText = "b" : StrText = "[[344113652270150]]" : Case StrText = "c" : StrText = "[[344991278847613]]" : Case StrText = "d" : StrText = "[[164461493653696]]" : Case StrText = "e" : StrText = "[[196752423751220]]" : Case StrText = "f" : StrText = "[[301630573215430]]" : Case StrText = "g" : StrText = "[[251496118250464]]" : Case StrText = "h" : StrText = "[[266394220086654]]" : Case StrText = "i" : StrText = "[[164866556948132]]" : Case StrText = "j" : StrText = "[[180599335371968]]" : Case StrText = "k" : StrText = "[[209067005843651]]" : Case StrText = "l" : StrText = "[[238594039545396]]" : Case StrText = "m" : StrText = "[[147702285338528]]" : Case StrText = "n" : StrText = "[[309221402452022]]" : Case StrText = "o" : StrText = "[[180901405340714]]" : Case StrText = "p" : StrText = "[[246506925416551]]" : Case StrText = "q" : StrText = "[[333343613344059]]" : Case StrText = "r" : StrText = "[[123128367803569]]" : Case StrText = "s" : StrText = "[[316143388416019]]" : Case StrText = "t" : StrText = "[[334073456605673]]" : Case StrText = "u" : StrText = "[[199626093460643]]" : Case StrText = "v" : StrText = "[[224202614323263]]" : Case StrText = "w" : StrText = "[[336032459740792]]" : Case StrText = "x" : StrText = "[[205228226232732]]" : Case StrText = "y" : StrText = "[[142420399202282]]" : Case StrText = "z" : StrText = "[[157919817645224]]"
                        Case True
                    End Select
                    Newstr &= StrText
                Next
                TextBox2.Text = Newstr