Imports System
Public Class Program
Public Shared Function FindSecondLargestWordInString(ByVal s As String) As String
Dim words As String() = s.Split(" "c)
Array.Sort(words, Function(a, b) b.Length.CompareTo(a.Length))
If words.Length > 1 Then
Return words(1)
Else
Return Nothing
End If
End Function
Public Shared Sub Main(ByVal args As String())
Dim s As String = "c cpp cobol c# vb python java"
Dim secondLongest As String = FindSecondLargestWordInString(s)
If secondLongest IsNot Nothing Then
Console.WriteLine("The second longest word is: " & secondLongest)
Else
Console.WriteLine("No second longest word found.")
End If
End Sub
End Class
' run:
'
' The second longest word is: cobol
'
