Public Function IsChinese(ByVal _str As String) As Boolean
        Dim iLength As Integer
        Dim bLength As Byte()
        bLength = System.Text.Encoding.Default.GetBytes(_str)
        If _str.Length = bLength.Length Then
            Return False
        Else
            Return True
        End If
    End Function这个方法就是判断一个字符串是否为中文字符串,或者其中包含了中文。