Inserite questi codici nel form o classe.

Imports System
Imports System.IO

Dopo gli import creaiamo le variabili.

Dim MyRnd As New Random
Dim Testolinee() As String
Dim path As String

Passiamo al codice vero e proprio.

path = (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)) & "elencoparole.txt"
Testolinee = File.ReadAllLines(path)

Il codice sopra prende il percorso del file di testo e poi locoarica passando per ogni riga inserendo ogni riga in un indice dell'array.
Questo codice invece richiama l'array contente il file di testo prendendo un numero casuale tra 1 e il valore massimo dell'array meno 1 in modo che il conteggio parta dalla riga 1 e non 0 del file di testo.

Testolinee(MyRnd.Next(File.ReadAllLines(path).Length - 1))

Sottinteso che il codice soprastante lo dovete inserire un una label o in un altra variabile.

Mte90