Option Explicit

Private Sub cmdDone_Click()
Unload Me
End Sub

Private Sub optAddition_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber + dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub optDivision_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber / dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub optExponent_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber ^ dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub optIntegerDivision_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber \ dblSecondNumber

lblAnswer.Caption = "Result     " & dblAnswer
End Sub

Private Sub optModulus_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber Mod dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub optMultiplication_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'get second number from user
dblAnswer = dblFirstNumber * dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub optSubtraction_Click()
Dim dblFirstNumber As Double, dblSecondNumber As Double
Dim dblAnswer As Double

dblFirstNumber = txtFirstNumber.Text 'Get first number from user
dblSecondNumber = txtSecondNumber.Text 'Get second number from user
dblAnswer = dblFirstNumber - dblSecondNumber

lblAnswer.Caption = "Result:     " & dblAnswer
End Sub

Private Sub txtFirstNumber_Change()
lblAnswer.Caption = "Result:     " 'Clear answer

'Clear option buttons
optExponent.Value = False
optMultiplication.Value = False
optDivision.Value = False
optIntegerDivision.Value = False
optModulus.Value = False
optAddition.Value = False
optSubtraction.Value = False
End Sub

Private Sub txtSecondNumber_Change()
lblAnswer.Caption = "Result:     " 'Clear answer

'Clear option buttons
optExponent.Value = False
optMultiplication.Value = False
optDivision.Value = False
optIntegerDivision.Value = False
optModulus.Value = False
optAddition.Value = False
optSubtraction.Value = False
End Sub