Hem / Tips & tricks
Sub Rev()Dim leng, i, xleng = Len(Text1)For i = 0 To lengx = leng - i - 1Text2 = Text2 & Mid(Text1, x, 1)NextEnd Sub