Function array*****()
Dim i As Integer
Dim temp As String
Dim tempparts() As String
 
Open "h:\*******.txt" For Input As #1
i = 0
 
Do While Not EOF(1)
    Line Input #1, temp
        tempparts = Split(temp, ",")
        user(i).Name = tempparts(0) & " " & tempparts(1)
        user(i).abteilung = tempparts(2)
        user(i).telefon = tempparts(3)
        user(i).email = tempparts(4)
        user(i).usern = tempparts(5)
        user(i).selectvon = False
       user(i).dwahl = tempparts(6)
        i = i + 1
Loop
 
Close #1
End Function

...
Do While Not EOF(1)
    Line Input #1, temp
    If i = 0 Then temp = mid$(temp, 3)
        tempparts = Split(temp, ",")
 
...