RE:Sintaxis para generar num aleatorios
Quizá con este código puedas orientarte aunque no está hecho para net. Suerte.
Option Explicit
Dim arrNum25() As Integer
Dim i
'------------
Private Sub Command1_Click()
Static count As Integer
Dim intNum As Integer
If count = 25 Then
Labelcontar.Caption = intNum
count = 0
Exit Sub
Else
ReDim Preserve arrNum25(1 To 25) As Integer
count = count + 1
Randomize
intNum = Int((25 * Rnd) + 1)
If count <> 1 Then
For i = 1 To count - 1
Do Until arrNum25(i) <> intNum
If arrNum25(i) = intNum Then
intNum = Int((25 * Rnd) + 1)
i = 1
End If
Loop
Next i
End If
arrNum25(count) = intNum
Labelcontar.Caption = intNum
End If
End Sub