Private Sub Text1_DblClick()
Dim i As Integer
 
zeile = "hund katze maus was weiß ich das ist ja richtig geil, wenn das so geht"
If Text1.Text = "" Then Exit Sub
Text1.Text = zeile
Rem gehe die liste durch
 
MsgBox (Trim$(Text1.SelText))
For i = 0 To List1.ListCount - 1
zeile = List1.List(i)
'... Statt If zeile = Text1.SelText Then das
If zeile = Trim$(Text1.SelText) Then  
MsgBox ("Wort schon vorhanden")
GoTo weiter
End If
Next i
 
List1.AddItem Text1.SelText
weiter:
Text2.Text = Text1.SelText
 
End Sub