Public Class ArtikelClass
    Public Structure StructureLieferant
        Dim Name As String
    End Structure
 
    Public Name As String
    Public Lieferant As StructureLieferant
End Class

    Dim Artikel As New Collection()
 
        Dim tmp As New ArtikelClass()
 
        tmp.Name = "Visual Basic"
        tmp.Lieferant.Name = "Microsoft"
 
        Artikel.Add(tmp)

Artikel(1).Lieferant.Name = "Hui"

System.Exception: Latebound assignment to a field of value type _
  'StructureLieferant' is not valid when 'StructureLieferant' is the result of _
  a latebound expression.
   at Microsoft.VisualBasic.CompilerServices.LateBinding.LateSetComplex(Object _
   o, Type objType, String name, Object[] args, String[] paramnames, Boolean _
   OptimisticSet, Boolean RValueBase)
   at WindowsApplication20.Form1.Form1_Load(Object sender, EventArgs e) in _
   C:Dokumente und EinstellungenNikoEigene DateienVisual Studio _
   ProjectsTestsWindowsApplication20Form1.vb:line 71