如何约束某段代码中的编码？急....................

[good3g]

下面这段代码我要约束一下编码为gb2312,不是约束整页的。

Function CheckBadChar(strChar)
Dim strBadChar, arrBadChar, i
strBadChar = "日,妈的,奶奶的，他妈的“
arrBadChar = Split(strBadChar, ",")
If strChar = "" Then
CheckBadChar = False
Else
For i = 0 To UBound(arrBadChar)
If InStr(strChar, arrBadChar(i)) > 0 Then
CheckBadChar = False
Exit Function
End If
Next
End If
CheckBadChar = True
End Function
请大家帮一下忙

[txlty]

部分代码GB2312 ? 好象不行吧