hola la funcion debe recibir un el rango osea el numero mas alto que puede regresar y un opcional si se desea que pueda regresar 0 o no
Código:
Private Function genera(ByVal max As Integer, Optional ByVal zero As Boolean = False) As Integer
if zero=true then
'algo pára que pueda regresar zero
else
'algo que genere un numero aleatorio que no se repita
end if
gracias