Code:
public function word_count(InWord as variant) as Integer dim words() as string word_str=nz(word_str,"") 'deals with null values passed in word_str = replace(word_str,vbcr," ") ' Whatever you want to also delineate a word can be placed here. while instr(word_str," ") > 0 ) 'Check to see if double spaces word_str = replace(word_str," "," ") ' change
Leave a comment: