Private WertLabel1 As Double
Private WertLabel2 As Double
Private WertText1 As Double
 
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44
    If Text1.Text Like "*,*" Then KeyAscii = 0
Case 8, 48 To 57
Case Else
    KeyAscii = 0
End Select
End Sub
 
Private Sub Text1_LostFocus()
If Text1.Text = "" Or Text1.Text = "," Then Text1.Text = "0"
Text1.Text = Format(Text1.Text, "#,##0.00")
WertText1 = CDbl(Text1.Text)
Berechnung
End Sub
 
Private Sub Berechnung()
WertLabel1 = WertText1 * 52.53
WertLabel2 = WertLabel1 * 14.7 + 1569
Label1.Caption = Format(WertLabel1, "#,##0.00 EUR")
Label2.Caption = Format(WertLabel2, "#,##0.00 EUR")
End Sub