Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim arr() As String = {"c++", "python", "c#", "java"}
Dim longest_string_size As Integer
longest_string_size = (arr.OrderByDescending(Function(s) s.Length).FirstOrDefault()).Length
Console.Write(longest_string_size)
End Sub
End Module
' run:
'
' 6
'