help with cleaning textbox

Hi,
 
I have a textbox, and I need to check to make sure it doesn't contain certain characters.  I have written code, and it works, but it looks awful.  Is there a better, more elegant way to write this?
Here it is
Public Shared Function cleanCaseName(ByVal caseName As String) As String If caseName <> "" Then caseName = caseName.Replace("--", "") caseName = caseName.Replace("-", "") caseName = caseName.Replace("__", "") caseName = caseName.Replace("#", "") caseName = caseName.Replace("@", "") caseName = caseName.Replace("!", "") caseName = caseName.Replace("^", "") caseName = caseName.Replace("$", "") ...