si quello che dici tu si puo' fare ieri non mi era venuto in mente poiche' erano le 4 di notte

stringa="1111122233"
sringaLen=len(stringa)
randomize
codicePos=(rnd*stringaLen)+1
codice=mid(codice,codicePos,1)


in questo modo viene estratto un numero a caso da quella stringa e poiche' gli 1 sono maggiori degli 2 e 3 ecc gli 1 escono piu frequentemente