Reverse

Svänger en sträng "bakofram" tex. Reverse("ABC") ger "CBA"

Function Reverse (ByVal sSträng)
   Dim sRev As String
   Dim iVarv As Integer
   sRev = ""
   For iVarv = Len(sSträng) To 1 Step -1
      sRev = sRev + Mid(sSträng, iVarv, 1)
   Next iVarv
   Reverse = sRev
End Function