Partendo dal fatto che prima di fare una cosa del genere dovresti studiare il linguaggio di programmazione ma soprattutto gli algoritmi di analisi, e che di solito non diamo la pappa pronta, eccoti un piccolo esempio di come puoi estrarre i dati e suddividerli in 5 RichTextBox.
Comunque come altri ti hanno detto, credo che usare un RichTextBox sia del tutto sbagliato, è un oggetto che serve per mostrare testo formattato e non testo dal quale poi estrarre dei dati.
Dim dati = My.Computer.FileSystem.ReadAllText("c:\vbn\test\test.txt")
Dim matches = RegularExpressions.Regex.Matches(dati, """\d\d\-\d\d\-\d\d\d\d""") ' considero le date come il punto di ricerca
For nBox = 1 To 5 ' da RichTextBox1 fino a RichTextBox5
Me.Controls("RichTextBox" & nBox.ToString).Text = "" ' azzero il contenuto
If matches.Count >= nBox Then
Dim inizio = matches(nBox - 1).Index ' calcolo l'inizio del testo da estrarre
Dim lunghezza = -1
If matches.Count > nBox Then
' se non sto elaborando l'ultimo elemento,
' mi calcolo la lunghezza del testo da estrarre
lunghezza = matches(nBox).Index - inizio
End If
' estraggo il testo
Dim testo As String
If lunghezza < 0 Then
testo = dati.Substring(inizio) ' ultimo elemento, estraggo fino alla fine del file
Else
testo = dati.Substring(inizio, lunghezza)
End If
Me.Controls("RichTextBox" & nBox.ToString).Text = testo ' lo assegno al RichTextBox
End If
Next