Visual Basic - Extraer cadena

Tengo un string en el que quiero extraer los ceros a la izquierda y guardarlos en una variable ¿cómo lo hago?

Por ejemplo: 00001234 Necesito guardar la cadena "0000"

Un saludo a todos
Pere

Hace un bucle traspasandoi los ceros a otra variable

Var1 = "00001234"
Var2 = ""
For w = 1 to len(Var1)
if mid(Var1, w, 1) = "0" then
Var1 = Var1 & "0"
else
Exit For
end if
next w

Averigua cuantos ceros tiene la cadena y luego extrae el resto

var1="00001234"
for x=1 to len(var1)
p=instr(x,var1,"0"): If p <> 0 Then q = p
next
resto=right(var1,len(var1)-q)

Con una de las soluciones resuelvo el problema y con la otra me ha dado una idea que la voy a utilizar.

Gracias de nuevo a los dos.
Así da gusto

Pere