With RichTextBox1
   .AcceptsTab = True
 
   'Einen Text mit Tabulatoren zuweisen 
   .Rtf = _
      "{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0" & _
      "Microsoft Sans Serif;}}" & _
      " \viewkind4\uc1\pard\f0\fs17 " & _
      "Breakfast\tab Lunch\tab Dinner\par " & vbNewLine & _
      "Coffee\tab Soda\tab Wine\par " & vbNewLine & _
      "Sandwich\tab Salat\tab Burger\par}"
 
      'Ganzen Text auswählen
      .SelectAll()
      'Tabulatorweite eintragen
      .SelectionTabs = New Integer() {80, 160, 240}
 
      'Zweite Zeile markieren (nullbasierter Index) 
      .SelectionStart = .GetFirstCharIndexFromLine(1)
      .SelectionLength = .GetFirstCharIndexFromLine(2) - .SelectionStart
 
      'Für diese Zeile neue Tabweite setzen 
      .SelectionTabs = New Integer() {160, 240, 320}
 
End With