如何使用VBA生成随机字符串

在VBA中生成随机字符串的代码实现，原理还有待研究

------------------------------------

Sub RA()
Dim i As Integer, s As String, s1 As String
For i = 1 To 80
    Randomize
    s = Chr(IIf(10 * Rnd > 5, Int(26 * Rnd + 65), Int(26 * Rnd + 97)))
    s1 = s1 & s
Next i
Cells(1, 1) = s1
End Sub