¿Cómo definir formato de celda en Excel desde VB 6.0?

[coldplay]

para que se rompen la cabeza tanto, teniendo la instruccion str con esta fucion tu puedes convertir los numeros a texto, y hay otra que es cint y masomenos funcionan asi

dim numeroString as string
dim numeroEntero as int

numeroString= cstr("5")
numeroEntero=cint(numerostring)

en caso de que no te funcione asi, lo que yo utilize fue concatenarle un espacio en blanco

ejemplo
hoja_act.Cells(8 + I, J + 1) = CStr("005") & " "

para que si por alguna razon el cstr no funciona, al pasarle el espacio en blanco entonces ya lo tomara como cadena de caracteres