如何创建在给定限制内随机选择字符量的vba？

Function GenerateRandomString(length As Integer) As String
    Dim chars As String
    Dim result As String
    Dim i As Integer
    
    ' 定义可用的字符集合
    chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    
    ' 循环选择随机字符并拼接结果字符串
    For i = 1 To length
        result = result & Mid(chars, Int((Len(chars) * Rnd) + 1), 1)
    Next i
    
    ' 返回结果字符串
    GenerateRandomString = result
End Function

Sub TestGenerateRandomString()
    Dim randomString As String
    
    ' 调用函数生成长度为10的随机字符串
    randomString = GenerateRandomString(10)
    
    ' 将生成的随机字符串输出到调试窗口
    Debug.Print randomString
End Sub