VBA If Then Contains

[Jiptastic]

Can any one help me put together a quick macro for contains.

If Range("A1").value contains "Shoe" then
Range("A1").interior.color = 12324
end if

I just need help with the contains part