限制特殊字符问题？？？

尐妖

Function ReplaceBadWord(g_word)
g_word=Replace(g_word," ","")
g_word=Replace(g_word,",","")
g_word=Replace(g_word,"<","")
g_word=Replace(g_word,".","")
g_word=Replace(g_word,">","")
g_word=Replace(g_word,"/","")
g_word=Replace(g_word,"?","")
g_word=Replace(g_word,";","")
g_word=Replace(g_word,":","")
g_word=Replace(g_word,"'","")
'g_word=Replace(g_word," " ","")
g_word=Replace(g_word,"[","")
g_word=Replace(g_word,"]","")
g_word=Replace(g_word,"{","")
g_word=Replace(g_word,"}","")
g_word=Replace(g_word,"\","")
g_word=Replace(g_word,"|","")
g_word=Replace(g_word,"=","")
g_word=Replace(g_word,"+","")
g_word=Replace(g_word,"-","")
g_word=Replace(g_word,"_","")
g_word=Replace(g_word,")","")
g_word=Replace(g_word,"(","")
g_word=Replace(g_word,"*","")
g_word=Replace(g_word,"^","")
g_word=Replace(g_word,"%","")
g_word=Replace(g_word,"$","")
g_word=Replace(g_word,"@","")
g_word=Replace(g_word,"!","")
g_word=Replace(g_word,"`","")
g_word=Replace(g_word,"~","")

g_word=Replace(g_word,"，","")
g_word=Replace(g_word,"《","")
g_word=Replace(g_word,"。","")
g_word=Replace(g_word,"》","")
g_word=Replace(g_word,"、","")
g_word=Replace(g_word,"？","")
g_word=Replace(g_word,"；","")
g_word=Replace(g_word,"：","")
g_word=Replace(g_word,"‘","")
g_word=Replace(g_word,"“","")
g_word=Replace(g_word,"〔","")
g_word=Replace(g_word,"〕","")
g_word=Replace(g_word,"｛","")
g_word=Replace(g_word,"｝","")
g_word=Replace(g_word,"、","")
g_word=Replace(g_word,"|","")
g_word=Replace(g_word,"＝","")
g_word=Replace(g_word,"＋","")
g_word=Replace(g_word,"－","")
g_word=Replace(g_word,"——","")
g_word=Replace(g_word,"）","")
g_word=Replace(g_word,"（","")
g_word=Replace(g_word,"×","")
g_word=Replace(g_word,"……","")
g_word=Replace(g_word,"％","")
g_word=Replace(g_word,"￥","")
g_word=Replace(g_word,"@","")
g_word=Replace(g_word,"！","")
g_word=Replace(g_word,"·","")
g_word=Replace(g_word,"～","")

g_word=Trim(Replace(g_word,")",""))
ReplaceBadWord=g_word
End Function

红色的为什么不行，， " 这个字符有什么可以限制输入呢？？？