Public Function chkGb(strGB As String) As Integer 
　 Dim ByteGB() As Byte 
　 ByteGB = StrConv(strGB, vbFromUnicode) 
　 chkGb = UBound(ByteGB) + 1 
End Function 


来 源 于：本站原创