随机字符串拆分为字符

Question

我有一个过程，它生成一个没有任何分隔符的随机字符串。我将此值的返回值存储为字符串，但我想将此文本拆分为字符，然后检查每个字符。我尝试使用上面的代码将字符串拆分为字符，但它给出了类型不匹配错误。

Sub gen()
    Dim s As String
    s = textgen(4000, 5)
    Dim buff() As String
    ReDim buff(Len(s) - 1)

    For i = 1 To Len(s)
        buff(i - 1) = Mid$(s, i, 1)
    Next

    MsgBox (buff)  ' type mismatch
End Sub

Answer 1

buff的类型为string() - 数组字符串（VBA没有Char类型）。

MsgBox需要String消息，而不是这些消息的数组;你必须Join元素：

MsgBox Join(buff) 'no error