Visual Basic - ELIMINAR CARACTER SI ES 0 PLEASE

Hola amigo, quisiera saber que rutina puedo utilizar para
eliminar un caracter, ya que mi aplicacion al ingresar un
codigo y vea que el primer digito es 0 tendria que
eliminarlo ya que utilizo por ejemplo:
Centro = Mid(txtnosobre, 12, 5)
Mesa = Mid(txtnosobre, 18, 2)
Tomo = Mid(txtnosobre, 21, 1)

Y en los casos que se me presenten los codigos con el
primer numero en 0 me afectaria el orden de la cadena ya
que la mayoria de los codigos vienen sin 0... Agradezco de
tu ayuda para ver como podemos hacer y eliminar ese 0, me
imagino que es por una condicion... Gracias

Edgar: Para eliminar el primer dígito podrías utilizar algo así:

If Left$(txtnosobre.text,1)="0" then txtnosobre.text=mid$(txtnosobre.text,2)

Saludos Ruri