Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ad, ters As String
Dim i As Integer
ad = TextBox1.Text
For i = ad.Length To 1 Step -1
ters = Strings.Mid(ad, i, 1)
TextBox2.Text = TextBox2.Text + ters
Next
End Sub
End Class
