Dim ConSignos As String ="áàäéèëíìïóòöúùüÁÀÄÉÈË�?Ì�?ÓÒÖÚÙÜçÇ"
Dim SinSignos As String ="aaaeeeiiiooouuuAAAEEEIIIOOOUUUçÇ"
Dim v as integer
Dim texto as string

for(v=0;v<SinSignos.Length;v++) {

 Dim i As string=ConSignos.Substring(v,1)
 Dim j As string=SinSignos.Substring(v,1)
 
 texto=texto.replace(i,j)
}