屏蔽敏感关键字功能的代码

Function WordFilter(strInput)　

Dim i　

Dim strOutput　

Dim strFilter　

strFilter = Split("关键字1,关键字2,关键字3", ",")　

strOutput = strInput　

For i = 0 To UBound(strFilter)　

strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)), "×"))　

Next　

WordFilter = strOutput　

End Function