Como pasar a la siguiente linea de un archivo plano (txt)

[ferm2020]

Buen dia david, se me olvidaba el programa esta en visual basic 6.0 y no en php como me lo enviaste, por favor si puedes ayudarme al respecto, todo esta en vb 6.0.

Lo que tengo en el programa es esto:

Botón Siguiente:
============
Private Sub Command1_Click()
Dim iFile As Integer
Dim strFileBuff As String
Dim strAryLines() As String
Dim i, iCount As Long
Dim tArray() As String

iFile = FreeFile
' - Abre el archivo
Open "C:\Documents and Settings\fleal\Escritorio\leer_archivo\+\plano1.tx t" For Input As #iFile

' - Lee
strFileBuff = Input(LOF(iFile), #iFile)
i = InStr(iFile, ",")
iCount = 0
Do While i > 0
ReDim Preserve strAryLines(iCount)
strAryLines(iCount) = Left(iFile, i - 1)
iCount = iCount + 1
iFile = Mid(iFile, i + 1)

i = InStr(iFile, " ")
Loop
If iFile <> "0" Then
ReDim Preserve strAryLines(iCount)
strAryLines(iCount) = iFile
End If
strAryLines = Split(strFileBuff, ",")

' - cierra el archivo
Close #iFile

' - split
tArray = Split(strAryLines(0))
tArray = Split(strAryLines(0), ",")

Text2.Text = strAryLines(0)
Text3.Text = strAryLines(1)
Text4.Text = strAryLines(2)
Text5.Text = strAryLines(3)
End Sub

-------------------------------------------------------------------------

Botón Salir:
========
Private Sub Command2_Click()
End
End Sub