Message Box Help (VBA)

[Deuce Bucksman]

Hello gurus!
I apologize if this is an asinine question, but is there anyone who could please tell me what I'm doing wrong with the code below. I'm trying to have the message box respond with a different message depending on which button the user selects (Yes/No). I tried to figure this out before coming to the board, but was unsuccessful. Everything works up until the ELSE statement. Thanks for your assistance.



Sub MacroTest1()
Dim x As Variant
Dim y As Variant
Dim answer As Variant

x = InputBox("Enter a number.", "Number entry one.")
y = InputBox("Enter another number.", "Number deuce.")
answer = WorksheetFunction.Sum(x, y)
MsgBox "Your answer is " & answer & "!", vbYesNo, "Your answer."
If vbYes Then
MsgBox ("Good times.")
Else: If vbNo Then MsgBox ("great times.")

End If
End Sub

 

[AlphaFrog]

Sub MacroTest1()
    Dim x As Variant
    Dim y As Variant
    Dim answer As Variant
    Dim Reply As Long
    
    x = InputBox("Enter a number.", "Number entry one.")
    y = InputBox("Enter another number.", "Number deuce.")
    answer = WorksheetFunction.Sum(x, y)
    Reply = MsgBox("Your answer is " & answer & "!", vbYesNo, "Your answer.")
    If Reply = vbYes Then
        MsgBox ("Good times.")
    ElseIf Reply = vbNo Then
        MsgBox ("great times.")
    End If
End Sub

 

[jim may]

Here's a start - Note RED


Sub MacroTest1()
Dim x As Variant
Dim y As Variant
Dim answer As Variant
Dim res
x = InputBox("Enter a number.", "Number entry one.")
y = InputBox("Enter another number.", "Number deuce.")
answer = WorksheetFunction.Sum(x+0, y+0)
res = MsgBox ("Your answer is " & answer & "!", vbYesNo, "Your answer.")
If vbYes Then
MsgBox "Good times." 'Removed ()
Else: If vbNo Then MsgBox "great times." 'Removed ()
End If
End Sub

 

[Deuce Bucksman]

Thanks! Works perfectly. I'm still learning this process so I see I omitted some very neccessary steps. Thanks for the quick response.