Private Sub Command1_Click()
 
    Dim Eingabe
    Dim Eingabe2
    Dim Multiblikator
    Dim Rechnung
    Dim Rechnung2
    Dim Ergebnis
    Dim ERgebnis2
 
    Eingabe = IsNumeric(Text1.Text)
    Eingabe2 = IsNumeric(Text2.Text)
    Multiblikator = IsNumeric(Text5.Text)
    Rechnung = IsNumeric(Text3.Text)
    Rechnung2 = IsNumeric(Text4.Text)
    Ergebnis = IsNumeric(Text6.Text)
    ERgebnis2 = IsNumeric(Text7.Text)
 
    Text3.Text = Eingabe / Eingabe
 
    Text6.Text = Rechnung * Multiblikator
 
    Text4.Text = Eingabe * Eingabe2
 
    Text7.Text = Rechnung2 / Multiblikator
 
End Sub