Dim Yhteensa As Single
Dim Hinta As Single
Dim Maara As Single
Dim Alennus As Single
Dim Maksettava As Single
Dim Alepro As Single

Private Sub CommandButton1_Click()
Hinta = Val(TextBox2.Text)
Maara = Val(TextBox3.Text)
Yhteensa = Hinta * Maara
TextBox5.Value = Yhteensa
Alennus = TextBox4.Value
TextBox6.Value = Yhteensa - Alennus
Maksettava = TextBox6.Value
Alepro = Maksettava / Yhteensa * 100
TextBox7.Value = Alepro
End Sub