转换函数 Public Function Uf8ToUf(strUf8 As String) As String'将UF8转为VB内部处理编码UF'在网上找的一个源码是读取UF8文本/保存UF8格式文本的。。。。但老出错。。。后来干脆改成单转换的函数了。''
On Error GoTo MyErr
Dim lngStrLen As Long
'需转换的字符串长度
Dim byUf8() As Byte
'保存源字符串
Dim byUf(1) As Byte
'字符串暂存1
Dim strDef
As String
'字符串暂存2
...
