Randomly Selecting Text File Number, Selecting Line, and Retrieving Part of a Line

[JonSea31]

Actually, the file would be open - as per the following code:

Public Sub GetR1Puzzle()
Dim i As Integer, Index As Integer
i = Rnd * File1.ListCount
PWpuzzle(Index) = PWpuzzle(rand(Index))
Open App.Path & "\puzzles\puzzle" & Trim(Val(Index)) & ".txt" For Input As 1
Close
FirstClue1
End Sub