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