Visual Basic - Ayuda con txt

Hola Otra vez ojala alguien me ayude con mi problema, abro un archivo txt en visual y lee linea por linea y cada k lee una linea almacena dicha linea en un textbox hasta k recorre todo el archivo pero quiero que cuando se encuentre con un " ; " despues del " ; " ponga la linea siguiente en el text1 y en el 2 y asi hasta n textbox
-----------------------------------------------------------------------------------------
jose angel 'esto en el text1
564/35 'esto en el text2
torreon 'esto en el text3
angelux; 'esto en el text4
martin gonzales 'esto en el text1
951/745 'esto en el text2
martincillo; 'esto en el text3
Mario g 'esto en el text1
425/76 'esto en el text2
chapala; 'esto en el text3
-----------------------------------------------------------------------------------------
cada que encuentre un " ; " empiece a llenar desde el text1
tengo el siguiente codigo que recorre todo el documento :
----------------------------------------------------------------------------------------
Dim Linea As String
Dim NumeroLinea As Integer
Dim X As Integer

NumeroLinea = 7

Open App.Path & "\archivo.txt" For Input As #1
For X = 1 To NumeroLinea
Line Input #1, Linea
Next
If Not EOF(1) Then
Do Until EOF(1)

t1$ = ""
t2$ = ""
t3$ = ""

Line Input #1, aaa$ ' En aaa$ esta el texto del segundo registro
t1$ = t1$ + aaa$
Line Input #1, aaa$ ' En aaa$ esta el texto del segundo registro
t2$ = t2$ + aaa$
Line Input #1, aaa$ ' En aaa$ esta el texto del segundo registro
t3$ = t3$ + aaa$

Text1.Text = t1$
Text2.Text = t2$
Text3.Text = t3$

Loop
End If
Close 1

No entendí muy bien lo que quieres, pero prueba con este código

Dim a() As String
Dim sLinea As String, sArchivo As String

sArchivo = App.Path & "\archivo.txt"
Open sArchivo For Input As #1
Do While Not EOF(1)
Line Input #1, sLinea
If sLinea <> "" Then
a = Split(sLinea, ";")
Text1 = Text1 & vbNewLine & a(0)
Text2 = Text2 & vbNewLine & a(1)
Text3 = Text3 & vbNewLine & a(2)
Text4 = Text4 & vbNewLine & a(3)
End If
Loop
Close #1

Evidentemente, los TextBox tienen que tener la propiedad Multiline a True.
Si fueran varios los TextBox donde tienes que mostrar los datos, sería conveniente que los metieras en un array de controles para ahorrar código (y recursos)

bueno mira espero explicarme mejor esta vez
tengo esto en un archivo .txt

MERCANTIL EJECUTIVO
1
17/2006 17
VS
ARMANDO MARENTES LEYV
MORALES RODRIGUEZ MAR
HILDA
JOSE FELIPE GONZALEZ
REVELES ;
EXHORTO MERCANTIL
1
SECRETO
21/2006 21
SECRETO
VS;
MERCANTIL EJECUTIVO
1
66/2005 66
VS
JORGE VALENZUELA HERN
ENRIQUE JIMENEZ BERUMEN ;

quiero guardar cada linea en por separado en varios textbox y empieen desde el text1, text2, text3 y asi pero que cuando se tope con el " ; " la siguiente linea se guarde en el text1 y asi se siga al text2 y asi cada que se tope con un " ; " o tambien que guarde todas las lineas en un solo textbox y cuando encuentre el " ; " se guarde en una variable, enviarlo a una base de datos y poner el siguiente texto.

espero haberme explicado un poco mejor