Randomstream in vba for Arena

he estado practicando mis conocimientos en Arena, principalmente en el módulo VBA. Mi intención es obtener datos aleatorios, a partir de una distribución uniforme en VBA. He estado probando con el código:

Dim s As SIMAN
Set s = ThisDocument.Model.SIMAN
s.SampleUniform(5,10,randomStream As Long)

Los valores 5 y 10 son el mínimo y máximo, pero el tercer parámetro no he podido encontrar un valor que sea aceptado por VBA, se supone que tiene que ser un valor aleatorio que sirva como semilla para generar el valor uniforme. He probado con la función Rnd pero genera error. Se que estoy cerquita de conseguirlo pero, apreciaría cualquier consejo. Un abrazo. Jonathan

Hello, I have been practicing my knowledge in Arena, mainly in the VBA module. My intention is to get random data, from a uniform distribution in VBA. I've been testing with the code:

Dim s As SIMAN
Set s = ThisDocument.Model.SIMAN
s.SampleUniform (5,10, randomStream As Long)

The values 5 and 10 are the minimum and maximum, but the third parameter I have not been able to find a value that is accepted by VBA, it is supposed to be a random value that serves as a seed to generate the uniform value. I have tried with the Rnd function but it generates error. I know I'm close to getting it, but I would appreciate any advice. A hug. Jonathan