Function StrRev2(ByVal $p1)
dim $b = "", %i
for i = len(p1) DOWNTO 1
b = b & MID(p1,i,1)
next
return b
End Function