Dim total1 As Integer
Dim total2 As Integer

Private Sub btnEight_Click()

txtDisplay.Text = txtDisplay.Text & btnEight.Caption

End Sub

Private Sub btnFive_Click()

txtDisplay.Text = txtDisplay.Text & btnFive.Caption

End Sub

Private Sub btnFour_Click()

txtDisplay.Text = txtDisplay.Text & btnFour.Caption

End Sub

Private Sub btnNine_Click()

txtDisplay.Text = txtDisplay.Text & btnNine.Caption

End Sub

Private Sub btnOne_Click()

txtDisplay.Text = txtDisplay.Text & btnOne.Caption

End Sub

Private Sub btnSeven_Click()

txtDisplay.Text = txtDisplay.Text & btnSeven.Caption

End Sub

Private Sub btnSix_Click()

txtDisplay.Text = txtDisplay.Text & btnSix.Caption

End Sub

Private Sub btnThree_Click()

txtDisplay.Text = txtDisplay.Text & btnThree.Caption

End Sub

Private Sub btnTwo_Click()

txtDisplay.Text = txtDisplay.Text & btnTwo.Caption

End Sub

Private Sub cmdEquals_Click()


txtDisplay.Text = "Hai"


End Sub

Private Sub cmdPlus_Click()

 total1 = total1 + Val(txtDisplay.Text)
 
 txtDisplay.Text = ""

End Sub