Hay un par de recursos que pueden serle útiles. Puede encontrarlos aquí y aquí . La primera es una posible pregunta duplicada con algunas funciones más que podrían ayudarlo a resolver su problema. El segundo es un artículo con el que me topé mientras buscaba en Google su pregunta. Resultó ser una excelente lectura.
Algo más práctico fue esto:
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
(Fuente - tendrás que desplazarte hasta el final, ¡fue Bob Strunz quien afirmó que funcionó para él!)
Espero que ayude, disfruté bastante esta pregunta (voto a favor). ¡Fue divertido, informativo e interesante!
-sf
