' **************************************************************
'  Modul:  Modul1  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Function Reverse(Z As String) As String
'   von Any Body
    Dim I As Integer
    For I = Len(Z) To 1 Step -1
        Reverse = Reverse & Mid(Z, I, 1)
    Next I
End Function

' ab 2000 gibt es auch die Funktion StrReverse
Function Reverse1(Z As String) As String
'   von Any Body
    Reverse1 = StrReverse(Z)
End Function