Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kelime, terskelime As String
        kelime = TextBox1.Text
        terskelime = ""
        For i = 1 To kelime.Length
            terskelime = terskelime & kelime.Substring(kelime.Length - i, 1)
        Next
        Label1.Text = terskelime
    End Sub
End Class