Svänger en sträng "bakofram" tex. Reverse("ABC") ger "CBA"<br>
<div class=code>
Function Reverse (ByVal sSträng)<br>
   Dim sRev As String<br>
   Dim iVarv As Integer<br>
   sRev = ""<br>
   For iVarv = Len(sSträng) To 1 Step -1<br>
      sRev = sRev + Mid(sSträng, iVarv, 1)<br>
   Next iVarv<br>
   Reverse = sRev<br>
End Function</div>