NOT TESTED:!
Code:
Dim a as String, I as Integer, K as Integer, N as Integer
Open File For Input as #1
While Not EOF (1)
Line Input #1, a ' use Line Input method to avoid commas, etc.
I = I + 1 ' counts the available lines
Next
Close
Randomize
K = Rnd * I ' selects a number in the order of the available lines
Open File For Input as #1
For N = 1 to K
Line Input #1, a ' displaces pointer to randomly selected line
Next
Line Input #1, a ' inputs that line
Close
' Now Do Your Stuff With Your Line!
HTH! 