Excel VBA模块文本到十六进制

Question

如果可能，我需要在excel中将文本转换为十六进制代码点。文字是这样的：

Тест текст 

我需要获得没有这样的空格的代码点：

0422043504410442002004420435043A044104420020

有人能帮助我吗？谢谢。 我可以在php或java中完成它，但不能在VB中解决这个问题。

Answer 1

在线找到答案：

Function Uni2Hex(Txt As String) As String
Dim n As Long
    For n = 1 To Len(Txt)
        Uni2Hex = Uni2Hex & Right("000" & hex(AscW(Mid(Txt, n, 1))), 4)
    Next n
End Function