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