Dim firstNum As Double

Dim secondNum As Double

Dim result As Double

Private Sub cmdClear_Click()

txtFirstNum = ""

txtSecondNum = ""

txtResult = ""

End Sub

Private Sub cmdAdd_Click()

firstNum = CDbl(txtFirstNum.Text) 'converts to number

secondNum = CDbl(txtSecondNum.Text)

result = firstNum + secondNum

txtResult = CStr(result)    'converts back to text

End Sub

Private Sub cmdExit_Click()

End

End Sub