【www.gdgbn.com--word】

 public badWordFilter
 "给badWordfilter 增加要过滤字符
 Public Function FilterBadWord(str)
  If str = "" Or IsNull(str) Then
   FilterBadWord = ""
   Exit Function
  End If
  Dim i,badWordSplit,filterSplit
  badWordSplit = Split(Cfg.badWordFilter,"|")
  For i = 0 To UBound(badWordSplit)
   filterSplit = Split(badWordSplit(i),",")
   If InStr(1,str,filterSplit(0),1) Then str = Replace(str,filterSplit(0),filterSplit(1))
  Next
  FilterBadWord = str
 End Function
 
 "使用方法
 dim str
 str = "aabbccfdfdsa"
 filterBadWord(str)

本文来源：http://www.gdgbn.com/bangongshuma/23751/