Do per scontato che sia vb6 perchè di solito parli di quello (ora il moderatore ti farà il cazziatone ) Non basta la left, se il numero fosse di + cifre non otterresti le decine. Per ottenere sempre le decine fai così
codice:
if Numero > 9 then
  Decine$ = cstr(Fix(Numero / 10) mod 10)
else
  Decine$ = ""
endif
Manco io ho capito cos'è la cadenza...