[szc]

No, but there are other tricks, such as prepending enough zeros and then taking the rightmost 4 characters from the string...

FOR I = 0 TO 9999 : A$ = RIGHT$("000"+STR$(I),4) : ... rest of the code : NEXT I