Private Sub Check1_Click(Index As Integer)
 
  If Check1(Index).Value = 1 Then
 
    'Text hinzufügen
    If Text1.Text = "" Then
      Text1.Text = Check1(Index).Caption
    Else
      Text1.Text = Text1.Text & "." & Check1(Index).Caption
    End If
 
  Else
 
    'Text entfernen
    Text1.Text = _
      Mid(Text1.Text, 1, InStr(Text1.Text, Check1(Index).Caption) - 2) & _
      Mid(Text1.Text, InStr(Text1.Text, Check1(Index).Caption) _
      + Len(Check1(Index).Caption))
 
  End If
 
End Sub

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.