Dim character(10) As String character(1) = a character(2) = b character(3) = c character(4) = d ListBox2.Items.AddRange(character)
ListBox2.Items.AddRange(If(character, Enumerable.Empty(Of String)()).Where(Function (s) s IsNot Nothing).ToArray())