Function TurnTextBackwards(Text As String)
 
 
 
	'***************************************
 
	'**** Code from VisibleVisual.com ******
 
	'***************************************
 
	On Error GoTo errorhandler
 
 
 
	For i% = 1 To Len(Text$)
 
	stringy$ = Mid$(Text$, i%, 1)
 
	final$ = stringy$ + final$
 
	Next i%
 
	TurnTextBackwards = final$
 
	Exit Function
 
	errorhandler: MsgBox Err.Description, vbExclamation, "Error"
 
	End Function