I am getting this error when I am trying to execute cal program compile error expected function or variable

Question

Option Explicit
Dim Oper1 As Double, Oper2 As Double, Result As Double
Dim operator As String
Dim Cleardisp As Boolean
Private Sub clearBttn_Click()
Text1.Text = ""
End Sub
Private Sub digits_Click(Index As Integer)
Text1.Text = Text1.Text & Index
End Sub
Private Sub Division_Click()
Oper1 = Val(Text1.Text)
operator = "/"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub dotBttn_Click()
If Cleardisp = True Then
Text1.Text = ""
Cleardisp = False
End If
If InStr(Text1.Text, ".") Then
Exit Sub
Else
Text1.Text = Text1.Text + "."
End If
End Sub
Private Sub Equals_Click()
On Error GoTo Errormsg
Oper2 = Val(Text1.Text)
If operator = "+" Then Result = Sum(Oper1, Oper2)
If operator = "-" Then Result = Diff(Oper1, Oper2)
If operator = "*" Then Result = Product(Oper1, Oper2)
If operator = "/" Then Result = Div(Oper1, Oper2)
Text1.Text = Result
Cleardisp = True
Equals.Enabled = False
Exit Sub
Errormsg:
MsgBox "The Operation Result In The Error:" & Err.Description
Text1.Text = "ERROR"
Cleardisp = True
End Sub
Private Sub Form_Load()
Equals.Enabled = False
End Sub
Private Sub Minus_Click()
Oper1 = Val(Text1.Text)
operator = "-"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub Multiply_Click()
Oper1 = Val(Text1.Text)
operator = "*"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub Plus_Click()
Oper1 = Val(Text1.Text)
operator = "+"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub Sum(x As Double, y As Double)
Sum = x + y
End Sub
Private Sub Product(x As Double, y As Double)
Product = x * y
End Sub
Private Sub Diff(x As Double, y As Double)
Diff = x - y
End Sub
Private Sub Div(x As Double, y As Double)
Div = x / y
End Sub

Answer 1

hi
you havnt assign event handler for button e.g.
Private Sub Plus_Click() handles Plus.Click
Oper1 = Val(Text1.Text)
operator = "+"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub Minus_Click() handles Minus.Click
Oper1 = Val(Text1.Text)
operator = "-"
Text1.Text = ""
Equals.Enabled = True
End Sub
Private Sub Multiply_Click() handles Multiply.Click
Oper1 = Val(Text1.Text)
operator = "*"
Text1.Text = ""
Equals.Enabled = True
End Sub
Shridhar J Joshi Thanks a lot