Dim First, Second As Single
----------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Calculate_Click()
First = CSng(Text1.Text)
Second = CSng(Text2.Text)
If Text1.Text = "Value 1" And Text2.Text = "Value 2" Then
Form2.Visible = True
Else
If Option1.Value = True Then
Result.Caption = First + Second
End If
If Option2.Value = True Then
Result.Caption = First - Second
End If
If Option3.Value = True Then
Result.Caption = First * Second
End If
If Option4.Value = True Then
Result.Caption = First / Second
End If
End If
End Sub