Private Sub ListBox1_Click(sender As Object, e As System.EventArgs) Handles _
      ListBox1.Click
        Static Letzter As String
        If Letzter <> ListBox1.SelectedItem Then
            RichTextBox1.SelectionStart = 17
            RichTextBox1.SelectionLength = Len(Letzter) + 1
            If Letzter = "" Then RichTextBox1.SelectionLength = Len(Letzter)
            RichTextBox1.SelectedText = " " & ListBox1.SelectedItem
            Letzter = ListBox1.SelectedItem
        End If
    End Sub