怎样实现文字与二进制字符互相转换？

Question

我需要发一些文字转换成二进制储存进数据库。使用时再把他还原、显示出来。
谁能给一些代码？谢谢了。

Answer 1

字符串-2进制数据
Dim buff() As Byte
buff = StrConv(("字符串数据", vbFromUnicode)反向
s=strconv(buff,vbuniode)

Answer 2

调试一下： Dim i As Long
 Dim x() As Byte
 
 x = StrConv("ABCDEFG", vbFromUnicode)   ' Convert string.
 For i = 0 To UBound(x)
   Debug.Print x(i)
 Next