Preview:
Dim result = row.ItemArray.
    Skip(5).
    Select(Function(item, index) New With {.Item = item, .OriginalIndex = index + 5}).
    Where(Function(x) String.IsNullOrWhiteSpace(x.Item.ToString())).
    Select(Function(x) io_dtGatesMonitoring.Columns(x.OriginalIndex).ColumnName).
    ToList()
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter