检查字符串strSource是否为big或big5码

Public Function CheckBIG(strSource As String) As Boolean  
Dim idx As Long  
Dim ByteTemp() As Byte  
CheckBIG  
= False  
For idx = 1 To Len(strSource)  
　　ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode)  
　　If UBound(ByteTemp) > 0 Then  
　　　　If (ByteTemp(1) >= 64) And (ByteTemp(1) <= 126) Then  
　　　　　　CheckBIG = True  
　　　　　　Exit For  
　　　　End If  
　　End If  
Next idx  
End Function