Public Sub Main()
Dim sString As String = "asdf"
Dim sOutput As String
Dim siCount As Short

For siCount = Len(sString) DownTo 1
  sOutput &= Mid(sString, siCount, 1)
Next

Print sOutput

End