求VB中Byte()数组与String的相互等价转换函数（不能丢失信息）

Question

例如，程序处理后得到byte()，我要用函数BytetoString将其转化成String，并输出来保存（不用写输出保存部分代码）；用StringtoByte函数，将我之前保存的String再转回Byte()数组，供程序作其他运算。
只要求给出上述BytetoString函数和StringtoByte函数。

Answer 1

Private Sub Command1_Click()

  Dim s As String, b(100) As Byte, n As Integer, s1 As String

  s = "Good evening!"

  Print "S = "; s

  Call StringtoByte(s, b, n)

  Print "b()=";

  For i = 1 To n

    Print Chr(b(i));

  Next i

  Print

  Call BytetoString(b, n, s1)

  Print "S1= "; s1

  

End Sub

Sub StringtoByte(s As String, b() As Byte, n As Integer)

  n = Len(s)

  For i = 1 To n

    b(i) = Asc(Mid(s, i, 1))

  Next i

End Sub

Sub BytetoString(b() As Byte, n As Integer, s1 As String)

  s1 = ""

  For i = 1 To n

    s1 = s1 + Chr(b(i))

  Next i

End Sub