Private Function DreheText(ByVal Text As String) As String
 
 
        Dim returntext As String
        returntext = ""
        Dim i As Integer
 
        Dim textlänge As Integer
 
        textlänge = Text.Length
 
        If Text.Length > 0 Then
 
            For i = Text.Length - 1 To 0 Step -1
 
                returntext = returntext & Text.Substring(Text.Length, -1)
 
            Next i
 
        End If
 
        Return returntext
 
    End Function
 
End Class

-----

-.-