'判斷字符串中是否有中文字符 
'有－返回 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