The Developer Zone

			
                            Public Function StripSpecialChars(ByVal sString As String) As String
                                Dim strString As String
                                Dim intCounter As Integer
                                Dim arrSpecialChar() As String = {".", ",", "<", ">", ":", "?", """", "/", "{",
                                "[", "}", "]", "`", "~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_",
                                "-", "+", "=", "|", " ", "\"}
                                
                                strString = sString
                                intCounter = 0
                                Dim i As Integer
                                For i = 0 To arrSpecialChar.Length - 1
                                    Do Until intCounter = 29
                                        des = Replace(strString, arrSpecialChar(i), "")
                                        intCounter = intCounter + 1
                                        strString = sString
                                    Loop
                                intCounter = 0
                                Next
                                Return strString
                            End Function