'gibts mich in der Kollektion
Public Function pF_IsInCollection( _
                ByRef col As Collection, _
                ByRef elem As String) As Boolean
  On Error Resume Next
    If IsEmpty(col(elem)) Then: 'DoNothing
    pF_IsInCollection = (Err.Number = 0)
  On Error GoTo 0
End Function