Dim ms1 As mySumme = lst_Summe(0)
        ms1.Betrag = 1
        lst_Summe(0) = ms1

    Private Sub changeBetrag(ByRef ms As mySumme, newValue As Decimal)
        ms.Betrag = newValue
        '...
    End Sub

    changeBetrag(lst_Summe(0), 55)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist