Supongo que se deberá a la conversión...
Lo que puedes hacer es mirar a qué caracteres corresponden las vocales acentuadas y crearte una función similar a la siguiente:
Function acentos(byval texto)
texto=replace(texto,"¢","ó")'E n caso de la ó
texto=replace(texto,"·","á")'E n caso de la ó
'etc con todas las vocales
acentos=texto
End Function
