''
'' FF_STRREVERSE
'' Reverse the contents of a string expression.
''
Function FF_StrReverse( ByRef sMainString As String _
) As String
Dim nLenMain As Integer = Len(sMainString)
Dim s As String = sMainString
Dim i As Integer
For i = 0 To (nLenMain / 2) - 1
Swap s[i], s[nLenMain-1 - i]
Next
Return s
End Function