valor numero de variable en celda

[Crashman]

ok eso si funciona ahora el clavo son los ceros como los pongo ejemplo si el dato es menor de dos digitos (1 a 9) que ponga 4 ceros antes (izquierda) y si es dos digitos (10 al 99) que ponga 3 ceros, y si es tres o mas que ponga dos ceros ejemplo

vceros as integer

Cells(1,1).Value=var1
Cells(1,2).Value=var2
if cells(1,1).value < 10 then
vceros= "0000"
Cells(1,3).Value= vceros & var1 & "-" & var2

pero me da error de que no coinciden los tipos,
asi sucesivamente en un bucle y tambien para el segundo dato despues del signo - (es porque el dato es un codigo y tiene que llevar esos ceros quedando asi 00002-00002, 00002-000123, por lo general despues del signoes don cambiarian los ceros)