ник: ДрЮня
пример чтения тестового файла по строкам
Public Sub get_Settings
Dim sRow As String, fn As Byte, num as Long
fn = FreeFile
Open "My.cfg" For Input As #fn
num=1
Do While Not EOF(fn)
Line Input #fn, sRow
num=num+1
Loop
Close #fn
end sub
Вам надо сгенерировать случайное число сравнивать его с "num" в цикле