Olá André, obrigado pela resposta.
Não consegui resolver o problema dentro daquela estrutura, então mudei-a um pouco.
Desta vez coloquei o seguinte código no carregamento do formulário:
Dim lista As New List(Of Integer)
Dim rnd As New Random
Dim i As Integer
Do Until i = 10
numero = rnd.Next(0, 10)
If lista.Contains(numero) = False Then
lista.Add(numero)
i = i + 1
Else
Do
numero = rnd.Next(0, 10)
Loop Until lista.Contains(numero) = False
lista.Add(numero)
i = i + 1
End If
Loop
Ao carregar ele vai sortear 10 números e salvá-los numa list. Na prática não está funcionando bem assim, ele tem salvado uma média de 7 números, mas pra mim essa média é o suficiente para o que eu preciso. O importante é que ele não está repetindo nenhum
número.
Depois vêm a sub que busca a palavra no arquivo txt, que coloquei desse jeito:
Dim numero As Integer
Dim palavra As String
numero = lista.First
Dim oTxtIn As New IO.StreamReader("C:\dados\teste.txt")
' Carrega o arquivo na memória.
Dim oTxtContent As String = oTxtIn.ReadToEnd() ' Lê os dados e insere na String.
Dim oTxtArr() As String = oTxtContent.Split(Environment.NewLine) ' Quebra por linha o conteúdo.
palavra = oTxtArr(numero)
txtpalavra.Text = palavra
lista.Remove(numero)
Ela usa o primeiro registro da list que havia sido criada no carregamento do formulário e depois remove-o para que não seja repetido.
Não está perfeito a nível de código, uma vez que a quantidade certa de palavras que eu peço para sortear a princípio não estão sendo todas sorteadas, mas como eu não preciso de todas elas, essa estrutura me atende.
Abraço
