Private Sub pourcent_Click()
TextBox1.Text = TextBox1.Text / 100
End Sub
Private Sub egale_Click()
Select Case TextBox2.Text
Case "+": TextBox1.Text = N + Val(TextBox1.Text)
Case "-": TextBox1.Text = N - Val(TextBox1.Text)
Case "*": TextBox1.Text = N * Val(TextBox1.Text)
Case "/": TextBox1.Text = N / Val(TextBox1.Text)
End Select
Test = True
TextBox2.Text = "="
End Sub