Visual Basic - Cómo usar el Operador LIKE ayuda por favor

HOLA NECESITO SU AYUDA URGENTE POR FAVOR

Estoy haciendo una aplicación de corrector ortográfico tipo WORD que permita señalar las palabras no encontradas en el diccionario y dar alternativas de dichas palabras ej: si digito máma que el corrector me de las opciones de corregirla con: mama, mamá, mema etc. para esto pretendo utilizar el operador LIKE pero no me funciona:

Set DictFile = FileSystem.OpenTextFile(custDICT, 1) 'Abro Diccionario

With DictFile
Do Until .AtEndofstream = True
Diccionario= .readline ' leo línea por línea el diccionario
If Trim(Diccionario) LIKE Trim(PalabraACorregir) & "*" Then
List1.AddItem Diccionario

End If
Loop
.Close
End With

''El problema que tengo es que nunca pasa la condición cuando uso el operador LIKe no entiendo porque

AYUDA URGENTE PLIS LES AGRADECERÍA ETERNAMENTE PORQUE ES UN PROYECTO DE POSTGRADO Y NO DOY PIE CON BOLA, NO TENGO NI IDEA PORQUE EL LIKE NO ME FUNCIONA ¿QUE ETOY HACIENDO MAL?

Lo utilizo en consultas de la siguiente manera:
select Nemb, NImo, CodNombre from TBTRegistroEmb where NEmb like '" & Trim(TxtBus) & "%'

Espero que te sirva, cualquier cosa me comentas

te recomiendo si vas a buscar cualquier cadena de texto sea donde sea que este el la palabra uses un signo de % antes y despues de la palabra a buscar, por ejemplo vas a buscar SET, en la palabra SETUP, o en la palabra WINSETUP,o en la palabra , ALGOSETPUSO,