'Zeilen lesen
Dim lines_in As List(Of String) = _
    IO.File.ReadAllLines("Pfad zur Textdatei").ToList
 
Dim lines_out As New List(Of String) 'Ausgabeliste
Dim rndm As New Random(123456) 'Zufallszahlengenerator einrichten
 
If lines_in.Count < 20 Then Stop 'Zu wenige Zeilen gelesen
 
For i As Integer = 0 To 19
  'zufälliger Zeilenindex 
  Dim r As Integer = rndm.Next(0, lines_in.Count)
  'Ausgabeliste ergänzen
  lines_out.Add(lines_in(r))
  'gewählte Zeile aus Eingabeliste entfernen
  lines_in.RemoveAt(r)
Next i
 
'zufällig ausgewählte Zeilen in Ausgabe schreiben
IO.File.WriteAllLines("Pfad zur Ausgabedatei", lines_out.ToArray)