Gracias a ambos por la respuesta tan rápida
El código de Raúl funciona bien.
El de Elemental Code supongo que funciona también, sólo le cambié el while en vez de q sea hasta q se termine el texto que sea mientras lineas es menor a 3.
Dim Cadenas() As String
Dim lineas As Long
Open "C:\separar.txt" For Input As #1
While lineas < 3
ReDim Preserve Cadenas(lineas)
Line Input #1, Cadenas(lineas)
lineas = lineas + 1
Wend
Close #1
Como tomo la data de cada linea después? supongamos para hacerle un msgbox del valor de cada línea por separado, pregunto en el caso que propone elemental code.
edit: listo, funciona precioso.
MsgBox Cadenas(1)
MsgBox Cadenas(2)
MsgBox Cadenas(3)
Gracias elemental code, sin querer queriendo me quedó clarisimo el concepto de las arrays por primera vez