Private Function OpenTxtToList(ByVal sPath As String) As List(Of String)
        Dim myList As New List(Of String)
        Try
            ' Steig aus, falls Datei nicht vorhanden
            If sPath.Trim = String.Empty Or Not System.IO.File.Exists(sPath) _
              Then Throw New Exception("Pfad ungültig oder Datei nicht" & _
              "gefunden.")
 
            ' Lese Textdatei ein und splitte den Inhalt in einzelne Wörter
            For Each sWort As String In System.IO.File.ReadAllText(sPath).Split( _
              Space(1))
                ' Zur Liste hinzufügen, falls Wort ist fünfstellig und 
                ' nummerisch
                If sWort.Trim.Length = 5 AndAlso IsNumeric(sWort.Trim) Then
                    myList.Add(sWort.Trim)
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        ' Rückgabe der Liste
        Return myList
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        MsgBox(String.Join(vbCrLf, Me.OpenTxtToList("C:\Test.txt").ToArray))
    End Sub

...
        For Each s As String In OpenTxtToList("C:\Test.txt")
            MsgBox(s)
        Next
...