For t = 0 To filDatei.ListCount - 1
  If filDatei.Selected(t) = True Then
    If InStr(lstDateien.Text, filDatei.List(t)) = 0 Then
      lstDateien.AddItem filDatei
    Else
      MsgBox "bereits ausgewählt!"
    End If
  End If
Next t