Dim arF As Variant
Dim vErg As Variant
Dim IsSubP As Boolean
Dim sErg As String
 
Open file For Input As #dnrwort
        While Not EOF(dnrwort)
            Line Input #dnrwort, var
            arF = Split(var," ")
            IsSubP = False
            sErg = ""
            For Each vErg In arF
                 If  IsSubP And Ucase(vErg)<> "SUB" Then 
                      sErg=sErg & vErg & " "
                 ElseIf IsSubP And Ucase(vErg)="SUB" Then
                      List1.AddItem " ~ SubProzedur: " & Left(sErg,Len(sErg)-4)
                      sErg = ""
                 End If
                 If Ucase(vErg)="SUB" And Not IsSubP Then
                       IsSubP = True 
                 End If  
            Next
            If sErg <> "" Then List1.Additem "End Sub: " & sErg
        Wend
Close #dnrwort