Dim q() As Question
Dim FN As Long
Dim c As Long
 
FN = FreeFile
 
c = 0
Select Case lCat
Case 1: Open App.Path & "\data\allgemein.dat" For Input As #FN
Case 2: Open App.Path & "\data\wissenschaft.dat" For Input As #FN
Case 3: Open App.Path & "\data\mathematik.dat" For Input As #FN
Case 4: Open App.Path & "\data\scherz.dat" For Input As #FN
End Select
 
 
 
While Not EOF(FN)
c = c + 1
Input #FN, q(c).Frage, q(c).Aw1, q(c).Aw2, q(c).Aw3, q(c).Aw4, q(c).richtig
Wend

Manchmal verliert man, manchmal gewinnen die Anderen...