[VB6] Spezzare una frase

[FinalFantasy]

Dim tot, pot, a As Integer
Dim numdec, elpot As String

tot = Len(num)
numdec = 0
a = 0

Do While a = tot
If Mid$(numbin, tot - a, 1) = 1 Then

[...]

End If
Loop


non so se è corretto. cmq il mio scopo è di prendere una stringa e prendere dall'ultima lettere all'inizio

es.: CIAO...voglio ke il loop prenda O - I - A - C

Però mi da questo erroreinvalid procedure call or argument

WHY?

[Last_Winter]

tipo così?

stringa = "CIAO"
For i = Len(stringa) To 1 Step -1
b = b & Mid(stringa, i, 1)
Next
MsgBox b
End Sub


Ciao :metallica :metallica

[ans]

vuoi il reverse di una stringa? se è cosi guarda che esiste l'istruzione StrReverse.