Private myCol As New Collection
Private TypCol As Collection
 
Private Sub ReadDataFromFile(ByVal sFileName As String)
  Dim vErg As Variant
  Dim f As Integer
  Dim sInp As String
 
  On Error Resume Next
  f = FreeFile
  Open sFileName For Input As #f
  If Err > 0 Then
     MsgBox "No File found ..."
     Exit Sub
  End If
 
  Do While Not EOF(f)
     Line Input #f, sInp
     If sInp <> "" Then
        vErg = Split(sInp, ",")
        Set TypCol = New Collection
        myCol.Add TypCol, vErg(0)
        If Err > 0 Then
           Err.Clear
           Set TypCol = Nothing
           myCol(vErg(0)).Add Join(vErg, ",")
        Else
           myCol(vErg(0)).Add Join(vErg, ",")
        End If
     End If
  Loop
  Close #f
End Sub