Attribute VB_Name = "Modul1"

'-Begin-----------------------------------------------------------------

Type Coll
  ID   As String
  Text As String
  Type As String
  Name As String
End Type

'-End-------------------------------------------------------------------