Function SplitTheConfigFile(ByVal sCFG_FilePath As String, _
                            ByRef oOutPut As Object, _
                            ByRef lExtractedCLs As Long, _
                            ByRef lExtractedBINDs As Long) As Boolean
SplitTheConfigFile = False
On Error GoTo err
 
    Dim i As Long
    Dim sTmp As String
    Dim sGood As String
    Dim sCL() As String
    Dim sBIND() As String
    Open sCFG_FilePath For Input As #1
        Do Until EOF(1)
            Line Input #1, sTmp
            sTmp = Trim$(sTmp)
            sGood = Left$(LCase$(sTmp), 2)
            Select Case True
            Case sGood Like "cl"
                lExtractedCLs = lExtractedCLs + 1
                ReDim Preserve sCL(1 To lExtractedCLs)
                sCL(lExtractedCLs) = sTmp
 
            Case sGood Like "bi"
                lExtractedBINDs = lExtractedBINDs + 1
                ReDim Preserve sBIND(1 To lExtractedBINDs)
                sBIND(lExtractedBINDs) = sTmp
 
           End Select
        Loop
    Close #1
 
    oOutPut.Text = "////////////////" & vbCrLf
    oOutPut.Text = oOutPut.Text & "// CL-Befehle" & vbCrLf
    oOutPut.Text = oOutPut.Text & "////////////////" & vbCrLf
    For i = 1 To lExtractedCLs
        oOutPut.Text = oOutPut.Text & sCL(i) & vbCrLf
    Next i
 
    oOutPut.Text = oOutPut.Text & vbCrLf
    oOutPut.Text = oOutPut.Text & "////////////////" & vbCrLf
    oOutPut.Text = oOutPut.Text & "// BIND-Befehle" & vbCrLf
    oOutPut.Text = oOutPut.Text & "////////////////" & vbCrLf
    For i = 1 To lExtractedBINDs
        oOutPut.Text = oOutPut.Text & sBIND(i) & vbCrLf
    Next i
 
    Erase sCL
    Erase sBIND
 
    SplitTheConfigFile = True
    Exit Function
err:
Debug.Print err.Description
End Function
 
 
Private Sub Command1_Click()
 
    Dim lCLs As Long
    Dim lBINDs As Long
    Dim sPath As String
    sPath = "C:\config.cfg"
 
    If SplitTheConfigFile(sPath, Text1, lCLs, lBINDs) Then
        MsgBox "Good Work on: " & sPath & vbCrLf & vbCrLf & _
               "CLs: " & lCLs & vbCrLf & _
               "BINDs: " & lBINDs
    End If
 
End Sub

Ohne Mampf, kein Kampf !