Access - conversion de codigos postales

Tengo un campo que contiene codigos postales. El problema es que el campo es numerico. al haber codigos postales con un 0 delante, lo suprime. Como puedo pasar este campo numerico a cadena consiguiendo que salga el 0 delante? Gracias!!!

dim cadstring as string,i as integer
cadstring=cstr(codigo_numerico)
for i=1 to (5-len(codigo_numerico))
cadstring="0" & cadstring
next
codigo_numerico=cadstring