Bueno, error localizado en esta línea:
Código:
If Not Fichero.AtEndOfStream Then Fichero.Skip(1)
Y para corregirlo sería así:
Código:
If Not Fichero.AtEndOfStream Then Fichero.Skip(0)
El problema mayormente era mío al no conecer a fondo los métodos. El SKIP hace un salto de línea y caracteres, es decir, si quieres que salte una línea y lea desde el 5 carácter habría que hacer un Skip(5) dejándolo en 0 lee la línea entera.
Por este motivo la primera línea la leía bien ya que al entrar en el
Do While no hacía el Skip hasta pasar al 2º registro.