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 
 [ 查看全文 ]