' If we need the Keywords If lKeyword Then 'loInsertRow.ParameterAdd("Keyword", loEventRecord.Keywords) End If ' If we need the Keywords display name If lKeywordDisplayName Then ' This one cannot be detected with IF NOT loEventLogRecord.KeywordsDisplayNames IS NOTHING Try ' Reset the values lcFinal = "" ' For each keyword For Each lcString In loEventLogRecord.KeywordsDisplayNames ' If we have a string If lcFinal.Length > 0 Then lcFinal = lcFinal + ", " End If lcFinal = lcFinal + lcString Next loInsertRow.ParameterAdd("KeywordDisplayName", lcFinal) Catch loException As Exception End Try End IfSee attached.