This maybe sloppy, as I'm doing it from memory.
VB Code:
  1. Imports System.Text.RegularExpressions
  2. ...
  3. 'Each line of data should now be a unique value in the array
  4. Dim Names() as String = _
  5. Regex.Split(IO.File.OpenText("C:\namefile.txt").ReadToEnd(),"\r\n", RegexOptions.SingleLine)
  6. For i as Int32 = 0 to 2
  7.      'Call your random number generator
  8.      Dim iRnd as Int32 = RandomNumber(0,Names.Length - 1)
  9.      'Process Names(iRnd)
  10. Next