WorksheetFunction.CountIf(myRange, """*z*""")
You can access worksheet functions through the WorksheetFunction class - don't forget to escape your quotation marks though.