Sub Main()
        Dim names() As String = {"HEFIN", "Dsouza", "Dotnetspider"}
        Dim longestlength = names.Max(Function(m) m.Length)
        Console.WriteLine("The Longest Length in this array is : " & longestlength)
    End Sub