Hallo Julia,

ein Vorschlag:

Sub Investor()
    Dim Investor_Betrag_1 As Currency
    Dim Investor_Betrag_2 As Currency
    Dim Investor_Betrag_3 As Currency
    Dim Investor_Steuer_1 As Double
    Dim Investor_Steuer_2 As Double
    Dim Investor_Steuer_3 As Double
    Dim Investor_Anteil_1 As Double
    Dim Investor_Anteil_2 As Double
    Dim Investor_Anteil_3 As Double

    Dim Auslage_Betrag
    Dim Gesamt_Einlage_Beginn
    Dim Gesamt_Einlage_Ende

    Investor_Betrag_1 = 10000
    Investor_Betrag_2 = 20000
    Investor_Betrag_3 = 30000

    Auslage_Betrag = 30000
    
    Investor_Steuer_1 = 10
    Investor_Steuer_2 = 12
    Investor_Steuer_3 = 15

    Gesamt_Einlage_Beginn = Investor_Betrag_1 + Investor_Betrag_2 + Investor_Betrag_3
    
    If Gesamt_Einlage_Beginn > 0 Then
        Investor_Anteil_1 = Investor_Betrag_1 / Gesamt_Einlage_Beginn
        Investor_Anteil_2 = Investor_Betrag_2 / Gesamt_Einlage_Beginn
        Investor_Anteil_3 = Investor_Betrag_3 / Gesamt_Einlage_Beginn
        If Auslage_Betrag <= Gesamt_Einlage_Beginn Then
            Gesamt_Einlage_Ende = Gesamt_Einlage_Beginn - Auslage_Betrag
    
            Investor_Steuer_1 = Gesamt_Einlage_Ende * Investor_Anteil_1 * (Investor_Steuer_1 / 100)
            Investor_Steuer_2 = Gesamt_Einlage_Ende * Investor_Anteil_2 * (Investor_Steuer_2 / 100)
            Investor_Steuer_3 = Gesamt_Einlage_Ende * Investor_Anteil_3 * (Investor_Steuer_3 / 100)
    
            Gesamt_Einlage_Ende = Gesamt_Einlage_Ende - (Investor_Steuer_1 + Investor_Steuer_2 + Investor_Steuer_3)
    
            MsgBox "Restbetrag: " & Format(Round(Gesamt_Einlage_Ende, 2), "#,##0.00") & " EUR"
        Else
           MsgBox "Auslage größer als Einlage!"
        End If
    Else
       MsgBox "Kein Betrag auf dem Konto!"
    End If
End Sub

da ich nicht weiß wo diese einzufügen sind habe ich sie als MsgBox ausgeben lassen

Gruß Detlev