Clean Input

Is there any way to clean the user input before saving to the database.I tried to use..

Function StripNonNum(strInput)
Dim regEx
Set regEx = New RegExp
regEx.Pattern ="^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$"
regEx.IgnoreCase = True
regEx.Global = True
StripNonNum = regEx.Replace(strInput, "")
End Function

But It doesn't work when user cut&paste the information to screen.For eg.Cut&Paste from a CV which contains Bullet points is there any way to remove these bullet Points before data saving..