f = FreeFile
    Open strEmpPath For Input As #f                         'Pfad der 
    ' Mitgliederdaten
    Do While Not EOF(f)
        Input #f, strtmp                                                      _
          'Hilfstring zum Einlesen
        strArr = Split(strtmp, ";")                                        _
        'aufsplitten
        colEmp.Add Name:=strArr(0), _                         'und ab in die 
        ' Collection
            Vorname:=strArr(1), _
            Tour:=CInt(strArr(2)), _
            sKey:=strArr(8), _
            Street:=strArr(3), _
            Plz:=strArr(4), _
            City:=strArr(5), _
            Phone:=strArr(6), _
            Handy:=strArr(7)
    Loop
    Close #f

    With frmEmpNew                       'Form mit Textboxen der neuen 
    ' Mitgliederdaten
        colEmp.Add Name:=.Name, _
            Vorname:=.Vorname, _
            Tour:=CInt(.Tour), _
            sKey:=.Key, _
            Street:=.Street, _
            Plz:=.Plz, _
            City:=.City, _
            Phone:=.Phone, _
            Handy:=.Handy
    End With