Private Sub cmd1_Click()
    If opt1.Value = True Then
        answer = varno1 + varno2
    ElseIf opt2.Value Then
        answer = varno1 - varno2
    ElseIf lbl2.Caption = "*" Then
        answer = varno1 * varno2
    ElseIf opt4.Value <> 0 Then
        answer = varno1 / varno2
    Else
        MsgBox "You haven't select an operator", , "Result"
    End If
    MsgBox "The answer is " & answer, , "Result"
End Sub
________________________________________________________

Private Sub opt1_Click()
    lbl2.Caption = "+"
End Sub
________________________________________________________

Private Sub opt2_Click()
    lbl2.Caption = "-"
End Sub
________________________________________________________

Private Sub opt3_Click()
    lbl2.Caption = "*"
End Sub

Private Sub opt4_Click()
    lbl2.Caption = "/"
End Sub