Devi caricare tutte le parole (righe) mentre tu carichi solo la prima

codice:
Dim line as String
Do
    line = lettura.ReadLine()
    parole.Add(line)
Loop Until line Is Nothing

Randomize()
n = (Rnd() * (parole.Count - 1) + 1)
parolasegreta = CStr(parole.Item(n))

lettura.Close()
MessageBox.Show(parolasegreta)