请问如何能把字符串转换成字符型数组?

Question

应声明为动态数组。Private Sub Command1_Click()
    
    Dim strData     As String
    Dim arrData()   As Byte
    
    strData = "我该怎么做"
    arrData = StrConv(strData, vbFromUnicode)
    
End Sub

Answer 1

Dim writer As String
Dim writer_array() As Byte
 writer = "我该怎么做"
 writer_array = StrConv(writer, vbFromUnicode)

Answer 2

也可以这样
Dim writer As String
writer = "我该怎么做"
ReDim writer_array(LenB(writer) - 1) As Byte
writer_array = StrConv(writer, vbFromUnicode)