tying to code as msgbox if date is older than 30 days

right now I have this code, I have tried variations of it but can't seem to get it to work. no mater what the date is in Rng1 the msgbox appears.

If Rng1.Value < DateAdd("m", -1, Date) Then
     If MsgBox("text if older than 30 days", vbYesNo) = vbNo Then
          ' does stuff if NO
     Elseif vbYes Then
          ' does stuff if YES
     End If
End If

Thanks for the reply Roy,

I tried that too. even made sure rng1 on the spread sheet is cell format to date *m/dd/yyyy