Text Flip [TuT]

[lorens13]

Thank you very much for this but I need a code for unflipping the text if possible, thanks

NVM the unflip code, I already figured out how to do

For the unflip code
add two new textboxes (textbox3 and textbox4)
then put this to the unflip button

Code:

Dim str As String, Newstr As String = Nothing
        str = TextBox3.Text
        For Each StrText As String In str
            Select Case True
                Case StrText = "p"
                    StrText = "b"
                Case StrText = "b"
                    StrText = "p"
                Case StrText = "d"
                    StrText = "q"
                Case StrText = "q"
                    StrText = "d"
                Case StrText = "n"
                    StrText = "u"
                Case True
                    For I = 0 To V.Length - 1
                        StrText = StrText.Replace(X.ElementAt(I), _
                        V.ElementAt(I))
                    Next
            End Select
            Newstr &= StrText

        Next
        TextBox4.Text = Newstr
        TextBox4.Text = StrReverse(TextBox4.Text)