==============================================
Reverse a string:

Function Reverse (S As String, ByVal n As Integer)
    ' Reverses the first n characters in S
    Dim Temp as String, i as Integer
    If n > Len(S) Then n = Len(S)
    For i=n to 1 Step -1
	Temp = Temp & Mid(S,i,1)
    Next
    Reverse = Temp & Rights(S, Len(S) - n)
End Function