Dim names() As String = Nothing
        Dim sr As IO.StreamReader = New IO.StreamReader( _
          "C:\Users\-\Desktop\names.txt")
        Dim i As Integer = 0
        Do While sr.Peek <> -1
            names(i) = sr.ReadLine()
            i += 1
        Loop

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak