Guten Morgen,

ich habe folgenden Code; das Rechenergebnis im Ergegebisfeld ist nicht korrekt.

        Dim c As Long
    Dim u As Long
Dim d As Long
    If txtOrdersQty1.Value = "" Then
    Exit Sub
    Else
    q = txtOrdersQty1.Value
    u = txtOrdersUnitPrice1.Value
    d = txtOrdersDisct1.Value
    txtOrdersItemSum1.Value = q * (u - ((u / 100) * d))
End Sub

Was habe ich falsch gemacht; was muss ich richtig machen?

P.S.Mein VBA-Kenntnisstand allgemein = siehe Name-Handle...