Kod:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim metin As String = TextBox1.Text
Dim metin_ters As String = ""
For k = Len(metin) - 1 To 0 Step -1
metin_ters = metin_ters & metin(k)
Next
If metin = metin_ters Then MsgBox("TAMAM")
End Sub
End Class