Ранее рассматривал какой-то код и думаю, что должен быть более элегантный способ написания этого ....
(returnVar.Warnings - строковый массив, его можно вернуть в любом размере в зависимости от количества зарегистрированных предупреждений)
For Each item In items
If o.ImageContent.ImageId = 0 Then
ReDim Preserve returnVar.Warnings(returnVar.Warnings.GetUpperBound(0) + 1)
returnVar.Warnings(returnVar.Warnings.GetUpperBound(0)) = "Section: " & section.<header>.<title>.ToString & " , Item: " & item.<title>.ToString
End If
Next