List1.ListIndex=-1 'Hier wird der ListIndex der ListBox auf -1 (also kein 
' eintrag) gesetzt
List1.Text=hinzuzufügenderText 'Hier wird versucht den Text zu markieren. Ist 
' er bereits vorhanden, ändert sich ListIndex und markiert den vorhandenen 
' Eintrag, wenn nicht, dann bleibt ListIndex -1
If List1.ListIndex=-1 then List1.AddItem hinzuzufügenderText 'Ist der ListIndex 
' eben noch -1 wird er hinzugefügt