CountWordInaString