for loop with array problem

[djpaul]

Hello,
I'm trying to write to a listbox from an array.
But i need the first 3 (0,1,2,3) indices of the array and then a VbCrLf
I wrote this:

Try
            Dim TextFile As String = ("C:\woodsheets.txt")
            Dim Reader As StreamReader
            Reader = File.OpenText(TextFile)
            Dim ReadContents As String
            ReadContents = Reader.ReadToEnd()
            Dim Array() As String = Split(readcontents, ";")
            Dim i As Integer
            For i = 0 To UBound(Array)
                Stock.Items.Add(Array(i) & ";" & vbTab & Array(i) & ";" & vbTab)
            Next 
        Catch
            MsgBox("Cannot find the text file!")
            Me.Close()
        End Try

now he does every array indice on 1 line.
But i need 3 indices on one line and then the next line.
How can i do that?

Thanx,
Paul

[djpaul]

oh wait, i had to replace the delimiter ";" with VbCrLf

Gr Paul