ci sarebbe un problemino, di logica, piu che altro...

se l'ID ha 3 cifre o ne ha 4...tutto è sballato...e non puoi aggiungere altri rami else xkè sarebbe da pazzi...
utilizza una semplicissima funzione ke aggiunge 4 zeri e poi prende in considerazione solo le ultime 4 cifre (ovvero le prima 4 da destra)
codice:
label.caption=right("0000" & numerokevuoi,4)