Coloque una cadena en un cuadro de texto y use InStr() para programar el número de veces que aparece una determinada palabra en el cuadro de texto.

tmp=text1.text 'El contenido del cuadro de texto

keyword="word" 'Una determinada palabra

keywordLen=len(keyword) 'Palabra longitud

cou=0 'Contador

do

a=instr(una palabra clavelen, tmp, palabra clave) 'Buscar palabras en el texto

si a=0 entonces salga do 'No se puede encontrar, salga

cou=cou 1 'Contar

bucle

msgbox cou