public class xyz
  dim m_wert1 as string 
  dim m_wert2 as string
  dim m_wert3 as string
 
  '...
  public property wert1 as string
  '...
 
end class

dim x as new xyz
dim colABC as new collection
x.wert1 = "A"
x.wert2 = "B"
x.wert3 = "C"
colABC.add(x, x.wert1)
 
x.wert1 = "D"
x.wert2 = "E"
x.wert3 = "F"
colABC.add(x, x.wert1)

dim y as new xyz
y = colABC("A")
textbox1.text = y.wert2 ' Ausgabe: B