'***********************************************************************************************************
oRead = System.IO.File.OpenText("D:\Inventor\Databaze\P.txt")
'***********************************************************************************************************
MessageBox.Show("Soubor otevřen", "Title")
'***********************************************************************************************************
Dim oList As New ArrayList
Dim Radek As String

i = 0
Radek = oRead.ReadLine
MessageBox.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")

oFile = "C:\Temp\P.txt"
oRead = System.IO.File.OpenText(oFile)
ContentF = oRead.ReadToEnd()
oRead.Close()

'create aray from text info
oSplit = Split(ContentF, vbCrLf)

For Each wrd In oSplit
 MessageBox.Show(wrd)
Next

'----------------------- NEBO ---------------------------

oRead = System.IO.File.OpenText(oFile)
Dim oList As New ArrayList
Dim Radek As String

Do
    Radek = oRead.ReadLine()
    If Not Radek Is Nothing Then
	MessageBox.Show(Radek)
        oList.Add(Radek)
    End If
Loop Until Radek Is Nothing
oRead.Close()