Há alguns recursos que podem ser úteis para você. Você pode encontrá-los aqui , e aqui . A primeira é uma possível pergunta duplicada com mais algumas funções que podem ajudá-lo a descobrir seu problema. O segundo é um artigo que encontrei enquanto pesquisava sua pergunta no Google. Acabou sendo uma excelente leitura.
Algo mais prático foi isso:
Public Function RemoveAccentMarks(ByVal s As String) As String
Dim stringBuilder As New StringBuilder
Dim c As Char
For Each c In s
Dim v As Char = Chr(Asc(c) And &H7F)
stringBuilder.Append(v)
Next
Return stringBuilder.ToString
End Function
(Fonte - você precisará rolar até o final, foi Bob Strunz quem afirmou que funcionou para ele!)
Espero que ajude, eu gostei bastante desta pergunta (upvote). Foi divertido, informativo e interessante!
-sf
