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?