替换非法字符

badword=split("脏话的集合，用 | 隔开","|")
Function ChkBadWords(Str)
If IsNull(Str) Then Exit Function
Dim i
For i = 0 To UBound(BadWord)
If InStr(Str,BadWord(i))>0 Then
If i > UBound(rBadWord) Then
Str = Replace(Str,BadWord(i),"*")
End If
End If
Next
ChkBadWords = Str
End Function