Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim names() As String = {"jack", "", "", "jill", "tommy", "", "", ""}

        names = names.Take(Array.LastIndexOf(names, String.Empty) - 2).ToArray()

        Console.WriteLine(String.Join(",",  names))

    End Sub

End Module