Visual Basic - Random

Hola, tengo una aplicacion que calcular x numeros aleatorios para un intervalo, necesito saber como puedo hacer que se repitan siempre los mismos numeros, el código es:
public sub inicio()

Do While Listado.ListCount < Me.txtaleatorios.Text
numero = Int((Me.txtnumero * Rnd) + 1)
If ComprobarNumero(numero) Then Me.Listado.AddItem numero Loop

End Sub

Public Function ComprobarNumero(numero) As Boolean
Dim i As Integer

For i = 0 To Me.Listado.ListCount - 1
Me.Listado.ListIndex = i
If numero = Me.Listado.Text Then
ComprobarNumero = False
Exit Function
End If
Next i
ComprobarNumero = True
End Function

Para que se repitan siempre los mismos numeros tienes que utilizar la misma semilla para la funcion randomize.
Por ejempo( antes de usar Rnd)

Randomize 1

Si no quieres que se repitan se suele usar

Randomize Timer

ya que la semilla cambia con el tiempo.