Unable to figure out why this VBA code is not executing as directed.

[advaddi]

Private Sub Inputtest()


Dim intResponse As Integer


intResponse = MsgBox("Do you want to do work?", vbYesNo)
If intResponse = 1 Then
MsgBox ("Good Choice")
Else
MsgBox ("Wrong Choice. Try Again")
End If


End Sub

The code doesn't run as i expect. When i answer yes i get wrong choice, when i answer no i get wrong choice too. why? please help

 

[Fluff]

How about

Private Sub Inputtest()

   If MsgBox("Do you want to do work?", vbYesNo) = vbYes Then
      MsgBox ("Good Choice")
   Else
      MsgBox ("Wrong Choice. Try Again")
   End If
End Sub

If you want to continue with your original idea vbYes =6 & vbNo = 7