2000前版本StrReverse替代函數

Public Function StrReverse(A As String) As String
  Dim i As Integer, Temps As String
  i = Len(A)
  While i > 0
    Temps = Temps & Mid(A, i, 1)
    i = i - 1
  Wend
  StrReverse = Temps
End Function