Text1.Text = "1"
End Sub

Private Sub cmd8_Click()
Text1.Text = "2"
End Sub

Private Sub cmd9_Click()
Text1.Text = "3"
End Sub

Private Sub cmdadd_Click()
num1 = Text1.Text
Text1.Text = ""
op = "+"
End Sub

Private Sub cmdclear_Click()
Text1.Text = ""
End Sub

Private Sub cmddivid_Click()
num1 = Text1.Text
Text1.Text = ""
op = "/"
End Sub

Private Sub cmdequal_Click()
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
ElseIf op = "-" Then
Text1.Text = num1 - num2
ElseIf op = "*" Then
Text1.Text = num1 * num2
ElseIf op = "/" Then
Text1.Text = num1 / num2
End If
End Sub

Private Sub cmdminus_Click()
num1 = Text1.Text
Text1.Text = ""
op = "-"
End Sub

Private Sub cmdmult_Click()
num1 = Text1.Text
Text1.Text = ""
op = "*"
End Sub
what can I do?