dim a as string
dim b0 as string
a="1"
b0="000"
a=b0+a

ecc. ecc.