Rigth(CStr(10000+numero),4)

ciao