Vb.net - Regex - Eliminando acentos e caracteres especiais

Imports System.Text.RegularExpressions

Public Function ElimaCaracterEspecial(ByVal pTexto As String) As String
        pTexto = Regex.Replace(pTexto, "[áàâãª]", "a")
        pTexto = Regex.Replace(pTexto, "[ÁÀÂÃ]", "A")
        pTexto = Regex.Replace(pTexto, "[éèêë]", "e")
        pTexto = Regex.Replace(pTexto, "[ÉÈÊË]", "E")
        pTexto = Regex.Replace(pTexto, "[íìî]", "i")
        pTexto = Regex.Replace(pTexto, "[ÍÌÎ]", "I")
        pTexto = Regex.Replace(pTexto, "[óòôõº]", "o")
        pTexto = Regex.Replace(pTexto, "[ÓÒÔÕ]", "O")
        pTexto = Regex.Replace(pTexto, "[úùû]", "u")
        pTexto = Regex.Replace(pTexto, "[ÚÙÛÜ]", "U")
        pTexto = Regex.Replace(pTexto, "[ç]", "c")
        pTexto = Regex.Replace(pTexto, "[Ç]", "C")
        pTexto = Regex.Replace(pTexto, "[^0-9a-zA-Z]+", "")
        Return pTexto
    End Function