求助大佬。

你这个程序和随机数就没啥关系，是一个演示从数字字符串里面取字符的程序，然后里面一堆错误。要想看随机数，可以把...Click()到End sub之间的代码全删掉，然后加入这三行代码：
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。
Debug.Print MyValue
然后运行，每次点击按钮可以看到打印出来1到6的随机数。

这个不是随机数，二楼正确
楼主i没有声明，是个变体型数据，所以为空。等于adcdx都是空
注意i是个过程级变量，楼主应声明为窗体级变量