Error in VB codes

I copied some codes from API help. But that shows errors.(Refer image).

I know this is really simple question. Still I'm a beginner. I can't get what is the problem. 

Can anyone help to explain a bit about this?

Thanks

SolidworksApi macros