Conoscere in un array di tipo Stringa l'elemento che contiene la quantità maggiore di caratteri

Per conoscere in un array di tipo Stringa l'elemento che contiene la quantità maggiore di caratteri, si potrà utilizzare il seguente codice:

Public Sub Main()
 
 Dim ss As String[] = ["1234567890", "123", "àèéìòù", "1234567", "12345"]
 Dim s As String
 Dim cc As New Short[]
 Dim c As Short
 
 For Each s In ss
' 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)

 Print
 For c = 0 To cc.Max
' Individua l'indice dell'elemento contenente la maggiore quantità di caratteri:
   If cc[0] == String.Len(ss[c]) Then Break  
 Next
 
' Mostra l'indice dell'elemento contenente la maggiore quantità di caratteri, nonché la sua stringa:
 Print "\n\nIndice:\e[31m\e[1m "; c, ss[c]

End