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