检查字符串strSource是否为GB或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