Option Explicit
Private ColSatzZeichen As New Collection
 
Private Sub Form_Load()
  Text1.Text = "Heute ist Donnerstag, der 06.12.2005!"
 With ColSatzZeichen
   .Add "!"
   .Add "/"
   .Add "("
   .Add ")"
   .Add "["
   .Add "]"
   .Add "\"
   .Add "'"
   .Add "`"
   .Add "´"
   .Add "."
   .Add ","
   .Add "+"
   .Add "*"
   .Add "-"
   .Add """"
   .Add "?"
 End With
End Sub

Private Sub Text1_Click()
 Dim i As Long, sTemp As String, Wort As String, schonDa As Boolean
 Dim SZ
 
 sTemp = " " & Text1.Text & " " 'Leerzeichen vor- und anhängen
 
 'Wort aus String bis Leerz. extrahieren
 Wort = Trim(Mid$(sTemp, InStrRev(sTemp, " ", Text1.SelStart), _
        InStr(Text1.SelStart + 1, sTemp, " ") - InStrRev(sTemp, _
        " ", Text1.SelStart)))
 
 'Collection nach Satzzeichen durchlaufen
 For Each SZ In ColSatzZeichen
    If SZ = Left$(Wort, 1) Then
       Wort = Right$(Wort, Len(Wort) - 1)
    ElseIf SZ = Right$(Wort, 1) Then
       Wort = Left$(Wort, Len(Wort) - 1)
    End If
 Next
 
 'Falls schon in Combo vorhanden nicht einfügen
 For i = 0 To Combo1.ListCount - 1
    If Combo1.List(i) = Wort Then
      schonDa = True
       Exit For
    End If
 Next i
 
 'Sonst Wort in Combo an erste Position einfügen
 If schonDa = False Then
   Combo1.AddItem Wort, 0
 End If
End Sub

Gru? aus dem Norden
manyki