INVERTIR TEXTO EN .NET

Public Class FORM1

    Public Function INV(ByVal CADENA As String) As String

        Dim TAM, I As Integer

        Dim C, A As String

        A = ""

        TAM = (CADENA.Length) - 1

        For I = TAM To 0 Step -1

            C = CADENA.Substring(I, 1)

            A = A + C

        Next

        Return (A)

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim CADENA As String

        CADENA = TextBox1.Text

        TextBox2.Text = INV(CADENA)

    End Sub

End Class