Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim array As String() = {"VB.NET", Nothing, "", "programming", " ", "language"}
Dim cleanedArray As String() = Array.FindAll(array, Function(s) Not String.IsNullOrEmpty(s))
For Each item In cleanedArray
Console.WriteLine(item)
Next
End Sub
End Class
' run:
'
' VB.NET
' programming
'
' language
'