一个按钮，然后把文本粘贴到第一个文本框中，然后点按钮，看第二个文本框的效果Private Sub Command1_Click()
Text2.Text = replaceSign(Text1.Text)End SubPrivate Function replaceSign(ByVal str As String) As String
'将源字符串处理后，返回新字符串
Dim signs As String
'非法字符串列表
'下面的字符串你需要填写一些特殊符号（字母和数字不用填写了
signs = "[] ?/>.<,{}:()_;!@#$%^&*-=+|\/`~'...
