select by location in vba

I got two Layers (Point and polygons) in my Application and want to write a vb macro, where point layer is cities layer and polygon layer is state’s layer, I want to know that how many cities are inside state’s layer