If ((Range("Score").Value Mod 4 = 0) And (Range("Score").Value Mod 100 <> 0)) Or _

((Range("Score").Value Mod 100 = 0) And (Range("Score").Value Mod 400 <> 0)) Then

MsgBox Range("Score").Value & " is a leap year."

Else

MsgBox Range("Score").Value & " is not a leap year."

End If