Hello, My final solution: ... same => n,Gosub(dati,s,1(${card})) [dati] exten => s,1,NoOp same => n,Set(say=${LEN(${ARG1})}) same => n,Set(digit=0) same => n,While($[${digit} < ${say}]) same => n,Saydigits(${ARG1:${digit}:1}) same => n,Wait(.75) same => n,Set(digit=$[${digit} + 1]) same => n,Endwhile same => n,Return Thank you for yours suggestion regards