hi guys any one can help me out for this problem..
i create a fuction to generate all the question. also this fuction have a random how can i put a code to break the repeting random.. thanks
here my sample code

Code:
Public Function Generat1n()
Dim j As Integer

Open App.Path & "\Questions.mezz" For Input As #1

j = Int(Rnd * 12)
For i = 0 To j
Line Input #1, question 
Next i
Label1.Caption = question
Close #1

End Function

what will i insert code and where i will put?