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

[ferm2020]

como lo puedo hacer, porque si lo hago como tu dices ya lo lee con el siguiente codigo:

'Ruta de acceso al archivo
dlgArchivo.InitDir = "C:\"

dlgArchivo.Filter = "Archivos de Texto (*.txt)|*.txt|Todos los Archivo (*.*)|*.*"
dlgArchivo.ShowOpen
If dlgArchivo.FileName <> Empty Then
txtArchivo.Text = dlgArchivo.FileTitle
Open dlgArchivo.FileName For Input As #iFile
Do While Not EOF(iFile)
Input #iFile, contenido
txtContenido.Text = txtContenido.Text & contenido
Loop

'Cierra el archivo
Close #iFile
Else
txtArchivo.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub

Este codigo lo que hace es buscar el archivo y lo coloca en el textbox, hasta alli se, pero no se como dividirla por lineas con split ni como almacenarla en un array para luego recorrerlo...me podrias ayudar en eso.....