Private Type Line_Input
   i1 As Integer
   i2 As Integer
   i3 As Integer
   i4 As Integer
End Type

Private Function Readlines(ByVal filename, _
              ByRef filedata() As Line_Input) As Boolean
 
   On Error GoTo fehler
 
   Dim line As String, values() As String
   Dim fc As Integer, index As Integer
 
   Readlines = False
 
   ReDim filedata(100)
   fc = FreeFile
 
   Open filename For Input As #fc
 
   While Not EOF(fc)
      Line Input #fc, line
      values() = Split(line, ",")
      If Not UBound(values) = 3 Then Exit Function
      index = index + 1
 
      If UBound(filedata) = index Then
         ReDim Preserve filedata(index + 100)
      End If
 
      With filedata(index)
        .i1 = CInt(values(0))
        .i2 = CInt(values(1))
        .i3 = CInt(values(2))
        .i4 = CInt(values(3))
      End With
   Wend
 
   Close #fc
   ReDim Preserve filedata(index)
 
   Readlines = True
 
   Exit Function
 
fehler:
   End Function