oFile = "C:\Temp\P.txt"oRead = System.IO.File.OpenText(oFile)ContentF = oRead.ReadToEnd()oRead.Close()'create aray from text infooSplit = Split(ContentF, vbCrLf)For Each wrd In oSplit MessageBox.Show(wrd)Next'----------------------- NEBO ---------------------------oRead = System.IO.File.OpenText(oFile)Dim oList As New ArrayListDim Radek As StringDo    Radek = oRead.ReadLine()    If Not Radek Is Nothing Then	MessageBox.Show(Radek)        oList.Add(Radek)    End IfLoop Until Radek Is NothingoRead.Close()

'***********************************************************************************************************oRead = System.IO.File.OpenText("D:\Inventor\Databaze\P.txt")'***********************************************************************************************************MessageBox.Show("Soubor otevřen", "Title")'***********************************************************************************************************Dim oList As New ArrayListDim Radek As Stringi = 0Radek = oRead.ReadLineMessageBox.Show(Radek, "Položka seznamu")oList.Add(Radek)While Not EOF    ' ???	Radek = oRead.ReadLine	MessageBox.Show(Radek, "Položka seznamu")	oList.Add(Radek)End While'***********************************************************************************************************oRead.Close()'***********************************************************************************************************MessageBox.Show("Soubor uzavřen", "Title")