主题：[求助]关于字符串转GB2132编码的方法！

Function ToUTF8(sStr As String)
Dim DAT() As String, DAT1() As Byte, ST As String
Dim Z As String
Dim zTem As String
Dim zCod As String
Dim zHex As String
Dim zBin As String
Dim zRes As Long
Dim zAsc As Long
Dim L  As Long   '字节计数
Dim i1 As Long
Dim i2 As Integer
For i1 = 1 To Len(sStr)
        Z = Mid(sStr, i1, 1)
        zAsc = Asc(Z)
        If zAsc > 0 Then           '如果不是汉字
          ReDim Preserve DAT(L + 1) As String
          DAT(L) = zAsc
          L = L + 1
        Else
          ReDim Preserve DAT(L + 3) As String
          DAT1 = Z
          ST = Right("0 " & Hex(DAT1(1)), 2) & Right("0 " & Hex(DAT1(0)), 2)
          For i2 = 1 To Len(ST)
             Z = Mid(ST, i2, 1)
             Select Case Z       '将汉字的16进制Unicode编码转换为二进制的
               Case Is = "0":         zBin = zBin & "0000"
               Case Is = "1":         zBin = zBin & "0001"
               Case Is = "2":         zBin = zBin & "0010"
               Case Is = "3":         zBin = zBin & "0011"
               Case Is = "4":         zBin = zBin & "0100"
               Case Is = "5":         zBin = zBin & "0101"
               Case Is = "6":         zBin = zBin & "0110"
               Case Is = "7":         zBin = zBin & "0111"
               Case Is = "8":         zBin = zBin & "1000"
               Case Is = "9":         zBin = zBin & "1001"
               Case Is = "A":         zBin = zBin & "1010"
               Case Is = "B":         zBin = zBin & "1011"
               Case Is = "C":         zBin = zBin & "1100"
               Case Is = "D":         zBin = zBin & "1101"
               Case Is = "E":         zBin = zBin & "1110"
               Case Is = "F":         zBin = zBin & "1111"
               End Select
            Next
            zBin = Trim(zBin)
            zTem = "1110" & Left(zBin, 4) & "10" & Mid(zBin, 5, 6) & "10" & Right(zBin, 6)
            'MsgBox zBin & "|" & Left(Trim(zBin), 4)
            'MsgBox zTem
            For i2 = 1 To 24
               Z = Mid(zTem, i2, 1)
               zRes = zRes + IIf(Z = "1", 1 * 2 ^ (24 - i2), 0 * 2 ^ (24 - i2))
            Next
            Z = Hex(zRes)       '汉字已转换为3字节的16进制数据
            DAT(L) = Left(Z, 2)
            DAT(L + 1) = Mid(Z, 3, 2)
            DAT(L + 2) = Right(Z, 2)
            L = L + 3
        End If
        zBin = " ":       zRes = 0
Next
For i = 0 To UBound(DAT) - 1
  ToUTF8 = ToUTF8 & "%" & DAT(i)
Next
End Function

上面借助了VBA的方法！不知道在狐表里面怎么实现呢？