has una funcion que te tome la palabra buscar y por cada vocal acentuada que pille la cambie por un comodin "?"
y luego ese patrón lo metes a una expresion regular y ya.
busca por expresiones regulares y checa esto de pasada
Código:
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' Crea una variable.
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrn ' Establece un modelo.
regEx.IgnoreCase = True ' Establece la no distinción de mayúsculas y minúsculas.
regEx.Global = True ' Establece la aplicabilidad global.
Set Matches = regEx.Execute(strng) ' Ejecuta la búsqueda.
For Each Match in Matches ' Repite el conjunto de coincidencias.
RetStr = RetStr & "Coincidencia encontrada en la posición "
RetStr = RetStr & Match.FirstIndex & ". El valor de la coincidencia es '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
