Cara, vc pode fazer assim
dim i as integer, numero as string
listbox.clear 'limpa o listbox
for i = 1 to 10
numero = format(i, string(6,"0")) 'formata i com o formato de 6 "0", ou seja, com o formato "000000"
listbox.additem numero 'adiciona numero ao listbox
next
Té mais