Transformar una cadena rellenada con ceros a la izquierda a entero

[merlin]

Pues eso,existe alguna forma de pasar una cadena del tipo:
(cadena) 0000533
a  entero 533 ?
Las funciones CInt e Int no me valen,ya que eso me lo convierte a cero (creo),y no se si existira alguna que realice el cambio en este caso.
Y si no,a alguien se le ocurre algo de como quedarme solo con el numero?
nota: descartando los 0 que me vaya encontrando en la cadena no me sirve pq puedo encontrar cadenas del tipo 0000503
Todo bajo visual basic 6.0

Vuestra paciencia y ayuda son apreciadas
Salu2

[yovaninu]

Código [Seleccionar] Expandir


Dim cad1 As String
Dim cad2 As Integer
cad1 = "00002007"
cad2 = Val(cad1)

MsgBox cad2 + 1


no le veo lo dificil.

[merlin]

Ok,gracias yovaninu,no habia probado con la funcion Val.
Salu2