Private Sub Command1_Click()
Dim DAT(2) As Byte, DAT1() As Byte
Dim st As String

st = "我": DAT1 = st

DAT(0) = (DAT1(1) And 240) / 16 Or 224
DAT(1) = (DAT1(1) And 15) * 4 + ((DAT1(0) And 192) / 64) Or 128
DAT(2) = DAT1(0) And 63 Or 128

Debug.Print "%" & Hex(DAT(0)) & "%" & Hex(DAT(1)) & "%" & Hex(DAT(2))
End Sub

谢谢!请问你能不能稍微解释一下这段代码的意思呢?

请参阅我2007.9.18的发贴《编写超级记事本必需的十六个功能源代码（三）》中的“九、读、写Unicode和UFT－8编码的文本”

太详细了,呼,谢谢你啊