Jeste da je tema stara, i Wlada je verovatno nasao odgovor, ali moze da koristi.
@izonic
Program ti bas ne radi kako treba posto ispred prve cifre stavlja zarez, ali nema veze to se lako popravi.
Evo jednog rekurzivnog:
Code:
Function a2(str As String) As String
If str = "" Then
a2 = ""
Else
a2 = Asc(Left(str, 1)) & IIf(Len(str) > 1, ",", "") & a2(Right(str, Len(str) - 1))
End If
End Function