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