' Object 型の配列だった場合 

Dim a As Object() = {100, 200, 300, Nothing, Nothing}

a = a.Where(Function(o) o IsNot Nothing).ToArray()



' Integer? 型の配列だった場合 

Dim a As Integer?() = {100, 200, 300, Nothing, Nothing}

a = a.Where(Function(i) i.HasValue).ToArray()



' String 型の配列だった場合 

Dim a As String() = {"100", "200", "300", Nothing, Nothing}

a = a.Where(Function(s) Not String.IsNullOrWhiteSpace(s)).ToArray()