Regular Expression Replace Issue

See more:

VB

regular-expression

I have a bit of code I use to make sure that invalid special characters do not make it into a textbox in a windows form project. Users often seem to copy/paste info into this textbox from Microsoft Word and it was becoming a problem when they would paste bullets or characters that Word auto-changes like hyphens and elipses. It works fine in development and we had no problems with it in testing. Now I have a customer who is able to get bullets to paste into it. It doesn't cause any errors, but it doesn't convert the bullet to an asterisk like I'm expecting it to.

The customer in question is known for having very tight security. The situation made me think about how some anti-virus applications will block SendKeys from working in programs. Does anyone know if this is also an issue for things like a .Replace using regular expressions? If so, are there any alternative methods to accomplish my end goal? Or can anyone find a reason why this wouldn't work?

Here are the event and method I use to keep only valid characters in the textbox:

 Private Sub txtSpecialReport_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSpecialReport.TextChanged
     'Only allow known characters to be pasted or typed into txtSpecialReport to avoid Conversion Error on characters
     'that are okay in access db but not on iSeries when claim is uploaded.
     Dim intStart As Integer = txtSpecialReport.SelectionStart
     '^negates the whole thing (we want ones that DON'T match)
     '\w is for a-zA-Z0-9
     '\s is for spaces, tabs, returns
     '\!\@\#\$\%\^\&\*\(\)\-\=\+\[\]\{\}\\\|\;\:\'\,\<\.\>\/\?\"" are allowed special characters
     Dim strPattern As String = "[^\w\s\!\@\#\$\%\^\&\*\(\)\-\=\+\[\]\{\}\\\|\;\:\'\,\<\.\>\/\?\""]"
     Dim myRegex As New System.Text.RegularExpressions.Regex(strPattern)
     txtSpecialReport.Text = myRegex.Replace(txtSpecialReport.Text, New System.Text.RegularExpressions.MatchEvaluator(AddressOf ReplaceKnownSpecials))
     txtSpecialReport.SelectionStart = intStart
 End Sub

 Private Function ReplaceKnownSpecials(ByVal match As System.Text.RegularExpressions.Match) As String
    Select Case Asc(match.Value(0))
        Case 63, 146
            Return "'" 'Replace an ascii 63 or 146 with ascii 39
        Case 133
            Return "." 'Replace an ascii 133 elipses with a single period (Not three (...) because then it changes string length)
        Case 150
            Return "-" 'Replace an ascii 150 dash with an ascii 45 dash
    End Select
    Return "*" 'Relace any other unknown char with an asterisk
End Function