首先，确保你的程序正确初始化了随机数生成器。在VB中，默认情况下使用的是 `Rnd` 函数来生成随机数。为了提高随机性，通常会在程序开始时调用一次 `Randomize` 语句。这一步骤会根据系统时间或其他因素为随机数生成器提供一个初始种子值，从而增加每次运行程序时生成的不同随机序列的可能性。

例如：

```vb

Randomize

Dim randomNumber As Integer = CInt(Int((100 Rnd()) + 1))

```

上述代码片段展示了如何生成一个介于1到100之间的随机整数。其中，`Randomize` 确保了随机数生成器的初始状态是基于当前时间等动态因素的，而不仅仅是固定的某个值。

此外，如果你希望进一步增强随机性的效果，可以考虑手动指定一个种子值给随机数生成器。这种方法适用于需要重现特定随机序列的情况，比如调试过程中需要复现某次运行的结果。然而，在大多数情况下，使用默认的随机种子已经足够满足一般应用的需求。

最后，值得注意的是，尽管我们可以通过上述方法提升随机数的随机性，但无论如何，它们仍然是基于确定性算法产生的伪随机数。对于某些对随机性有极高要求的应用场景（如密码学），可能需要采用专门的安全随机数生成器。

总结来说，在VB中设置随机数的随机率主要依赖于合理使用 `Randomize` 和 `Rnd` 函数，并结合具体应用场景灵活调整参数。通过这些手段，我们可以有效地控制并优化随机数的生成过程，使之更贴近实际需求。