Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim A(3) As String
        A(0) = "Hola"
        A(1) = "Como"
        A(2) = ""
        A(3) = "Estas"
        Dim Prueba() As String
        Prueba = (From str As String In A Where Not {""}.Contains(str)).ToArray()
        For Each element As String In Prueba
            MsgBox(element)
        Next
    End Sub