Visual Basic - deteccion con el mid de un salto de linea

A ver ke me explico

tengo un arxivo del ke leo los datos

ejemplo:

hola%0001%12
pepe%0001%35

de acuero entonces utilizo la instruccion mid para copiar cada palabra a una array

ejemplo

array(1)=hola
array(2)=0001

s'entiende verdad?kiero suprimir los %

el problema viene ke cuadno llega al ultimo elemento no se como decirle ke es un salto de linea y que se acaba

pasa esto

array(3)=12pepe

cuando deberia ser

array(3)=12
array(4)=pepe

he probado con

mid(a,x,1)= vbcrlf <---pero no tira

me pueden decir como hacer para ke el mid detecte los saltos de linea

Yo veó mucho más conveniente la instrucción Split( ) en vez de estar dependiendo de la función mid y sus cientos de variantes
Suponiendo que tienes
hola%0001%12
sería
Dim MyArray
dim lectura as String
lectura="hola%0001%12 "

MyArray=Split(lectura,"%")
debug.print MyArray(0)
debug.print MyArray(1)
debug.print MyArray(2)

En el caso de los saltos de linea puede susar como condicion que el caracter sea un vbCrLf y te dimensionará el array con tantos saltos de linea haya y luego creas un array por cada uno de ellos con la función Split

sería
Dim MyArray
Dim MyText
dim lectura as String
MyText=Split(texto del archivo, vbCrLf )
Y luego lo subdivides obviamente en tu caso utilizando un For Next

MyArray=Split(MyText(0),"%")
debug.print MyArray(0)
debug.print MyArray(1)
debug.print MyArray(2)

No conocia esa fucnion