Function TextDrehen(Text As String) As String
Dim i As Long
Dim Zeich As String
For i = Len(Text) To 1 Step -1
Zeich = Mid(Text, i, 1)
TextDrehen = TextDrehen & Mid(Text, i, 1)
Next i
End Function
Function TextDrehen(Text As String) As String
Dim i As Long
For i = Len(Text) To 1 Step -1
TextDrehen = TextDrehen & Mid(Text, i, 1)
Next i
End Function
Sub trhekrevlegeips()
Dim myStr As String
Dim rtSym As String
Dim myArr() As Variant
Dim iCnt As Integer
myStr = "CLN001S"
ReDim myArr(1 To Len(myStr))
For iCnt = 1 To Len(myStr)
myArr(iCnt) = Mid(myStr, iCnt, 1)
Next
For iCnt = Len(myStr) To 1 Step -1
rtSym = rtSym & myArr(iCnt)
Next
MsgBox rtSym
End Sub
Sub test()
Dim text As String
text = "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"
text = StrReverse(text)
End Sub
Function RevString(txt) As String
Dim i As Integer
For i = 1 To Len(txt)
RevString = Mid(txt, i, 1) & RevString
Next
End Function