Conoscere in un array di tipo Stringa la quantità maggiore di caratteri contenuta nei suoi elementi

Per sapere in un array di tipo Stringa la quantità maggiore di caratteri contenuta nei suoi elementi, potremo usare questo algoritmo: prima assegneremo ad un vettore di tipo Short i valori delle quantità dei caratteri contenuti da ciascun elemento del vettore Stringa, poi ordinando il vettore di tipo Short in ordine "discendente" individueremo il valore superiore, che sarà ora contenuto nel primo elemento del vettore di tipo Short.
Tale valore rappresenterà la quantità maggiore di caratteri contenuta negli elementi del vettore di tipo String.

Mostriamo un esempio pratico:

Public Sub Main()

 Dim ss As String[] = ["123", "1234567890", "àèéìòù", "1234567", "12345"]
 Dim s As String
 Dim cc As New Short[]
 
 For Each s In ss
' Mostra in console semplicemente le quantità di caratteri contenute da ciascun elemento del vettore di tipo Stringa:
   Print String.Len(s),
' Assegna il valore di ciascuna quantità di caratteri:
   cc.Push(String.Len(s))
 Next
 
' Ordina in modo "discendente" i valori presenti nel vettore di tipo "Short":
 cc.Sort(gb.Descent)
 
' Mostra il valore più alto, ossia la quantità superiore di caratteri contenuta dal vettore di tipo Stringa:
 Print "\n\n\e[31m\e[1m", cc[0]

End