Find leap year

Dim MyYear
'MyYear = Year(Date)
MyYear = 2016
If (MyYear / 4 = MyYear \ 4) Then
MsgBox " Leap Year"
Else
MsgBox "Not a Leap Year"
End If