代码：

Function ChkInvaildWord(InvaildWords,Words)
	ChkInvaildWord = True
	InvaildWord    = Split(InvaildWords,"|")
	inWords        = LCase(Trim(Words))
	For i = LBound(InvaildWord) To UBound(InvaildWord)
		If InStr(inWords,InvaildWord(i)) > 0 Then
			ChkInvaildWord = True
			Exit Function
		End If
	Next
	ChkInvaildWord = False
End Function

Function getStringLen(str)
	On Error Resume Next
	Dim l
	Dim c
	Dim i
	Dim t
	l  = Len(str)
	t  = l
	For i = 1 To l
		c = Asc(Mid(str,i,1))
		If c >= 128 Or c < 0 Then t = t + 1
	Next
	getStringLen = t
	If Err.Number <> 0 Then Err.Clear
End Function

使用方法：

if ChkInvaildWord("测试|敏感",rf("pinglun")) then
Call alert_back("内容含有违规词，请修改后再提交！")
end if
	 
if getStringLen(rf("pinglun")) < 3 then
Call alert_back("内容不足3字，请修改后再提交！")
end if