?
????????????Dim?strRtn?As?String?=?""
????????????Dim?bytArray()?As?Byte
????????????Dim?chrArray()?As?Char
????????????Dim?intI?As?Integer
????????????bytArray?=?System.Text.Encoding.Default.GetBytes(s)
????????????If?CharCount?>?System.Text.Encoding.Default.GetCharCount(bytArray)?Then
????????????????strRtn?=?s
????????????Else
????????????????chrArray?=?System.Text.Encoding.Default.GetChars(bytArray,?0,?CharCount)
????????????????For?intI?=?0?To?chrArray.Length?-?1
????????????????????strRtn?=?strRtn?&?chrArray(intI)
????????????????Next
????????????End?If
????????????Return?strRtn
????????End?Function
??????