Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Test("", "asd", "def")

        Test("111", "asd", "def")

    End Sub

    Public Sub Test(val1 as string, val2 as string, val3 as string)

        If { val1, val2, val3 }.Any(Function(x) String.IsNullOrEmpty(x)) Then

            Console.WriteLine("Hay un String Vacio")

        Else        

                Console.WriteLine("No Hay Ningun String Vacio")

        End If

    End Sub

End Module