Function FullChinese(str)
--过滤语句中的中文字符
i = Len(str)
If i = 0 Then
FullChinese = False
Exit Function
End If
For i = 1 To 999
  str = Replace(str," ","")
  str = Replace(str,"　","")
  If InStr(str," ") = 0 And InStr(str,"　") = 0 Then
   Exit For
  End If
Next
FCstr = ""
Do While i > 0
If Asc(Mid(str, i, 1)) > 10000 OR Asc(Mid(str, i, 1)) < -10000 Then
  FCstr = Mid(str, i, 1)&FCstr
Else
  FCstr = FCstr
End If
i = i - 1
Loop
FullChinese = FCstr
End Function