Public Function LadeCocktails(ByVal strFile As String) As Boolean
On Error Resume Next
Dim No As Integer
Dim strLine As String
Dim strValueName As String, strValueContent As String
No = FreeFile
Err = 0
Open strFile For Input As #No
If Err <> 0 Then
    LadeCocktails = False
Else
    ReDim Cocktails(0)
    While Not EOF(No)
        Line Input #No, strLine
        strLine = Trim(strLine)
        If Left(strLine, 1) = "[" Then
            ReDim Preserve Cocktails(UBound(Cocktails) + 1)
            With Cocktails(UBound(Cocktails))
                .strName = Mid(strLine, 2, Len(strLine) - 2)
                Set .colZutaten = New Collection
            End With
        Else
            strValueName = ""
            If InStr(1, strLine, "=") > 0 Then
                strValueName = Left(strLine, InStr(1, strLine, "=") - 1)
                strValueContent = Mid(strLine, InStr(1, strLine, "=") + 1)
            End If
            With Cocktails(UBound(Cocktails))
                Select Case UCase(strValueName)
                Case "TYP"
                    .strTyp = strValueContent
                Case "ZUTAT"
                    .colZutaten.Add strValueContent
                Case Else
                    .strText = .strText & strLine & vbNewLine
                End Select
            End With
        End If
    Wend
    Close No
    LadeCocktails = True
End If
End Function

Wer Rechtschreibfehler findet darf Sie behalten