Private Sub txtNick_Change()
Dim myString As String
Dim newString As String
Dim char As Variant
myString = txtNick
newString = myString
For Each char In Split(SpecialCharacters, ",")
txtNick = Replace(txtNick, char, "")
Next
txtNick.SelStart = Len(txtNick.Text)
End Sub