coding membuat kalkulator

Dim var1 As Double
Dim var2 As Double


Private Sub Option1_Click()
    Label3.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub


Private Sub Option10_Click()
 Label3.Caption = Val(Text1.Text) < Val(Text2.Text)
End Sub

Private Sub Option11_Click()
 Label3.Caption = Val(Text1.Text) <> Val(Text2.Text)
End Sub

Private Sub Option12_Click()
 Label3.Caption = Val(Text1.Text) <= Val(Text2.Text)
End Sub

Private Sub Option2_Click()
 Label3.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Option4_Click()
 Label3.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Option5_Click()
 Label3.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Option6_Click()
 Label3.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private Sub Option7_Click()
 Label3.Caption = Val(Text1.Text) > Val(Text2.Text)
End Sub

Private Sub Option8_Click()
 Label3.Caption = Val(Text1.Text) = Val(Text2.Text)
End Sub

Private Sub Option9_Click()
 Label3.Caption = Val(Text1.Text) >= Val(Text2.Text)
End Sub