新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim bArr() As Byte, bArr2() As Byte
    Dim strA As String, strB As String
    Dim strHead As String * 4
    Dim strHead2 As String * 100
   
    strA = "嗨MaNongKu.com"
    bArr = strA '数组可以直接得到字符串的内容
    'Debug.Print "bArr=" & bArr '这样会出错
    Debug.Print "bArr="
    Debug.Print bArr
    Debug.Print "-----------------"
    
    strB = bArr '字符串可以直接得到数组的内容
    Debug.Print "strB=" & strB
    Debug.Print "-----------------"
    
    strHead = bArr '字符串可以直接得到数组的内容，小于目标也没关系，直接截取
    Debug.Print "strHead=" & strHead
    Debug.Print "-----------------"
    
    strHead2 = bArr '字符串可以直接得到数组的内容，尾部以空格填充
    Debug.Print "strHead2=" & strHead2
    Debug.Print "-----------------"
    
    bArr2 = strA
    Debug.Print "bArr2=" & bArr2(0) & " " & bArr2(1) & " " & bArr2(2) & " " & bArr2(3) & " " & bArr2(4)
    Debug.Print "-----------------"
    
    bArr2 = StrConv(strA, vbFromUnicode)
    Debug.Print "bArr2=" & bArr2(0) & " " & bArr2(1) & " " & bArr2(2) & " " & bArr2(3) & " " & bArr2(4)
    Debug.Print "-----------------"
End Sub

运行结果：

bArr=
嗨MaNongKu.com
-----------------
strB=嗨MaNongKu.com
-----------------
strHead=嗨MaN
-----------------
strHead2=嗨MaNongKu.com                                                                                       
-----------------
bArr2=232 85 77 0 97
-----------------
bArr2=224 203 77 97 78
-----------------