送分问题!!!

[fredcai]

请问各位，在VB中如何判断一个字符串中是否有中文，谢了！

[timeman]

Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
.......
if lstrlen(s)<>len(s) then
msgbox "有中文"
endif

[QQRN]

干嘛！几个答案都是一样的，发这么多干嘛？

[binghuodao]

If Len(StrConv(str, vbUnicode)) = Len(str) then
有
Else
没有
End If

[zcom]

我可以沾光吗？

[ttyp]

str="34似的"
if len(str)<>lenb(strconv(str,vbFromUnicode)） then
msgbox "有中文"
endif

[cqq_chen]

来迟了。