Visual Basic - guardar en vector

Tengo un archivo de texto el cual tiene varias lineas…por ejemplo:

Esta es la primer linea
Esta es la que le sigue
Y asi continuamos
Hasta el final...

Ese archivo yo lo levanto en una caja de texto de la siguiente manera

Open "c:\archivo.txt" For Input As #1
Do Until EOF(1)
Line Input #1, var
Text1.Text = Text1.Text & var
Loop
Close #1

Lo que yo quiero hacer es que no solo lo muestre en una caja de texto sino que tambien que el texto me lo guarde en una vector, asi cada linea de texto le correspondera una posición del vector (en este caso habra 4 posiciones)
como hago??

Lo más fácil, tal y como lo tienes es usar la función Split para partir el texto. Ejemplo:

Dim lineas() As String, i As Integer
lineas = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(lineas)
MsgBox lineas(i)
Next i

LEE EL NÚMERO DE DATOS QUE HAY Y DIMENSIONA LA MATRIZ

Open "c:\archivo.txt" For Input As #1
i=0
do until EOF(1)
line input #1,var
i=i+1
loop
close #1
dim matriz(i-1)

LEE LOS DATOS Y LOS GUARDA

Open "c:\archivo.txt" For Input As #1
i=0
Do Until EOF(1)
Line Input #1, var
Text1.Text = Text1.Text & var
matriz(i)=var
i=i+1
Loop
Close #1

Saludos