'判斷字符串中是否有中文字符
'有－返回 true
'無－返回 false
'這里的中文字符可能還包括日文、韓文等東方文字
function HasChinese(str)
HasChinese = false

dim i
for i=1 to Len(str)
if Asc(Mid(str,i,1)) < 0 then
HasChinese = true
exit for
end if
next
end function