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
 
        For i = 0 To Text.Length
 
            returntext = returntext & Text.Substring(Text.Length, Text.Length - _
              1)
 
        Next i
 
        Return returntext
 
    End Function
 
End Class

-----

-.-