So ist es momentan. Wie muss ich den anpassen?

Vielen Dank und schönen Sonntag!

Private Sub cmdVerkaufspreis_Click()

'Verkaufspreis berechnen

    With Me
    If Me.txtEinkaufspreis = "" Then
        MsgBox ("Bitte Einkaufspreis eintragen")
    ElseIf Me.txtMarge = "" Then
        MsgBox ("Bitte Marge eintragen")
        
    Else
    'Me.txtVerkaufspreis.Text = Format(CStr(Val(Replace(Me.txtEinkaufspreis.Text, ".", ",")) / 100 * Val(Replace(Me.txtMarge.Text, ".", ",")) + CStr(Val(Replace(Me.txtEinkaufspreis.Text, ".", ",")))), "#,##0.00€")
    
    Dim curZahl1            As Currency
    Dim curZahl2            As Currency
    Dim curErgebnis         As Currency
 
'*** Achtung: Textzeichen sind zu entfernen;ggf in Labels auslagern oder entsprechend handeln
    curZahl1 = CCur(Me.txtEinkaufspreis.Text)
    curZahl2 = CCur(Me.txtMarge.Text)
    curErgebnis = (curZahl1 * curZahl2)
 
 
    Me.txtVerkaufspreis.Text = CStr(curErgebnis)
    
    End If
    End With