Private Sub MachWas()
        While BisFertig
            Dim newB As B = New B()
            AddHandler newB.Meldung, AddressOf Me.MeldeDich
            meineBs.Add(newB)
        End While
    End Sub
 
    Private Sub MeldeDich(ByVal d As Daten)
        ' ClassB
    End Sub