Dim sText As String = "ç à á â ä è é ê î ò ó ô ù ú û ü ö ß ! ? ( ) + abcs"
Dim str() As Byte = Text.Encoding.Convert(Text.Encoding.ASCII, _
  Text.Encoding.Unicode, System.Text.Encoding.ASCII.GetBytes(sText))
sText = Text.Encoding.Unicode.GetString(str).Replace("?", "")
MsgBox(sText)

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co