metes la cadena en un array separado por espacios y luego compones un where con las subcadenas.
Código:
cadena="neumonia atipica"
miarray=split(cadena, " ")
strWhere = " WHERE FALSE "
for i = 0 to Ubound(miarray) - 1
strWhere = strWhere & " OR TEXTO LIKE '%" miarray(i) & "%'"
next
strSQL = "SELECT * FROM TABLA " & strWhere
El "Where False" lo uso para no tener que mirar si lleva OR o no en cada iteracion, pero no le des mas importancia. Si la cadena se compusiera con AND, seria Where True.