como poder reconocer ceros en una variable

[Osasa54]

Hola, en la celda A1 tengo :
0123ABC SEAT AMARILLO

Entonces en un modulo de VBA meto:
Dim datos as string
datos = Sheets("hoja1").Cells(1, 1).Value
Dim a as string
a = left(a, 4)

lo malo es que de este mod la variable a = 123A, y necesito que también me coja los ceros es decir, que a sea = 0123
Puedo ponerlo de algún modo para que me lo coja así?

utilizando
a = mid(a, 1, 4)
me pasa lo mismo

Muchas gracias

 

[Juan Pablo González]

Mhmm, a ver si lo puedo explicar.

Cuando uno define una variable, por ejemplo (que casualidad lo que sigue... ), de tipo string, uno lo puede hacer así:

Dim a As String

O

Dim a$

La segunda metodología es muy utilizada en VB, pero, a mí, personalmente, me parece muy confusa ! porque nunca me acuerdo cuál símbolo es cual !!!

Ahora, VBA tiene dos funciones Left (Así como dos funciones Mid, o Right o Format, entre otras), Left y Left$

La primera devuelve una variable de tipo "Variant", lo que pasa es que normalmente es un string, así que VBA lo "traduce" de Variant a String.

La segunda devuelve de una vez un "String", así que no hay que realizar un paso intermedio (Así no lo haga uno !) para llevar la variable al tipo correcto...