Visual Basic - Archivos txt2

Me dieron esta respuesta:

Fijate con ésta función, para separar línea por línea puedes utilizar la función Split:

MiArchivo = FileToString("MiArchivo.txt")

Lineas=Split(MiArchivo,vbCrLF)

Luego el vector Lineas lo recorres normalmente.

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

End Function

Pero la variable Lineas no se de que tipo definirla!!, y luego cómo acceder a cada registro.

Muchas Gracias

me queda una duda respecto de que es lo que quieres hacer

Lineas es un vector de String por lo que lo puedes definir Tipo Variant, para acceder a cada registro lo haces como con cualquier vector.

Dim i As Integer, MiArchivo As String, Lineas As Variant

MiArchivo = FileToString("MiArchivo.txt")

Lineas=Split(MiArchivo,vbCrLF)

For i=LBound(Lineas) To UBound(Lineas)
Debug.Print Lineas(i)
Next i

Cecilia: muchas gracias por la información, me fue de gran utilidad.
Saludos, Florencia