Dim i As Integer
    Dim Zeilen As String
    Dim strZeilenArray() As String
 
 
        strZeilenArray = Split(GetText("Bommel", "C:\Dat.txt", False), _
          vbNullChar)
 
        For i = 0 To UBound(strZeilenArray)
            List1.AddItem strZeilenArray(i)
        Next i

Public Function GetText(sSuch As String, sFile As String, MatchCase As Boolean) _
  As String
 
     If Dir$(sFile) <> "" Then
 
        Dim F As Long
        Dim lRow As Long
        Dim LineOfText As String
 
        If MatchCase = False Then sSuch = UCase(sSuch)
 
        F = FreeFile
        Open sFile For Input As #F
 
            Do Until EOF(F)
                Line Input #F, LineOfText
 
                If MatchCase = False Then LineOfText = UCase(LineOfText)
                lRow = lRow + 1
                If InStr(1, LineOfText, sSuch) > 0 Then
                    GetText = GetText & lRow & vbNullChar
                End If
            Loop
 
        Close #F
 
    End If
 
End Function