Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        IO.File.WriteAllLines("test.txt", {String.Empty, "1", "  ", "2", "3"})

        Dim textfile = IO.File.ReadAllLines("test.txt")

        Console.WriteLine("Unfiltered")

        Console.WriteLine(String.Join(Environment.NewLine, textfile))

        Console.WriteLine("---")

        Console.WriteLine("Filtered")

        Dim filteredTextFile = textfile.Where(Function(line) Not String.IsNullOrWhitespace(line)).ToArray()

        Console.WriteLine(String.Join(Environment.NewLine, filteredTextFile))

    End Sub

End Module