Visual Basic - eliminacion de 0 y espacios

Hola estoy teniendo un problema con visual ya que al ingresar el valor de una variable que inicia con 0 o espacios visual me recorta todos los 0 y los espacios hasta que encuentra otro valor y quisiera saber si hay forma de ke no lo haga
ejemplo:
Dim num As String
Dim l As Integer
num = Val(Text1.Text)
l = Len(num)
si por ejemplo yo introduje 05100 en el textbox visual lo toma como 5100 y eso me afecta en el len
Gracias de antemano

El problema es de la función Val, que convierte el valor del textbox a numerico.
No la uses.