public class BL_Vertrieb
public sub WeiseKundedemArtikelalsKäuferZu(byval KundenNr as integer, byval _
  ArtikelNr as integer) 
dim myKunde as Kunde =  holeObjKunde(KundenNummer)
dim myArtikel as Artikel =  holeObjArtikel(ArtikelNummer)
myArtikel.Käufer = myKunde
end sub
end class

Micke