Aufschrift des ersten Labels zu Double konvertiert an eine Variable übergeben
Double-Variable unter Einsatz des zu Double konvertierten TextBox-Wertes neu berechnen
Zu String konvertierten Double-Wert konvertiert mit zwei Nachkommastellen in das zweite Label eintragen
Code:
Private Sub txtPercent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dValue As Double
dValue = CDbl(Label1.Caption)
dValue = dValue - ((CDbl(txtPercent.Text) / 100) * dValue)
Label2.Caption = Format(dValue, "0.00")
End Sub