Dim vara As Integer
        Dim beginHeader As Long = plaintext.IndexOf("{\fonttbl{")
        Dim endHeader As Long = plaintext.IndexOf("}}")
        Dim einträge = plaintext.Substring(beginHeader + 9, endHeader - _
          beginHeader - 9).Split("}")
        fontlisteRTFDokument.Clear()
        For vara = 0 To einträge.Length - 1
            Dim beginFont As Long = einträge(vara).IndexOf(" ")
            Dim endFont As Long = einträge(vara).IndexOf(";")
            fontlisteRTFDokument.Rows.Add(einträge(vara).Substring(beginFont + _
              1, endFont - beginFont - 1))
            ' Test der Tabellenübernahme: Debug.Print(einträge(vara).Substring( 
            ' beginFont + 1, endFont - beginFont - 1))
        Next