Prueba poniendo lo siguiente.
Código vb.net:
Ver originalhoja = entero.Substring(1, contar - 1)
Ya que el SubString empieza de cero como bien lo pones en tu código, para el primer carácter, pero el "Leght" te debe de arrojar 3 y te debe de estar marcando un error fuera de índice si no me equivoco, ya que no mencionas el error que te marca, supondré que es ese y pues tal ves te sirva la solucion que te menciono.
Saludos...