Hey how can i ramdoize each file it will read the infor from to the text box thanks?maybe somit like this

Code:
Private Sub Form_Load()
Open "C:\text\& rnd &.txt " For Input As 1

Text1.Text = Input(LOF(1), 1)
End Sub

in the folder text there is about 10 text files and i want it to ramdomize what ones it reads into the txt box thanks