Algebraic Operations

//Algebraic Operations

Private Sub cmdDIFF_Click()
txtDIFF.Text = Val(txtFN.Text) - Val(txtSN.Text)

End Sub

Private Sub cmdDIV_Click()

If Val(txtSN.Text) = 0 Then
MsgBox "DIV is not possible"
Else
txtDIV.Text = Val(txtFN.Text) / Val(txtSN.Text)
End If

End Sub

Private Sub cmdMUL_Click()
txtMUL.Text = Val(txtFN.Text) * Val(txtSN.Text)

End Sub

Private Sub cmdSUM_Click()
txtSUM.Text = Val(txtFN.Text) + Val(txtSN.Text)

End Sub