Public Function lst_Fehler_Fuellen() As String 
    Dim str_Fehler As String 
    If Form_Produkte.txtFehler <> "" Then 
        str_Fehler = Form_Produkte.txtFehler 
    Else 
        Exit Function 
    End If 
    Do Until str_Fehler = "" 
        lst_Fehler_Fuellen = lst_Fehler_Fuellen & _
          Form_Produkte.lst_FehlerArtenGeladen.Column(1, Left(str_Fehler, 1) - _
          1) & ";" 
        str_Fehler = Mid(str_Fehler, 3) 
    Loop 
End Function