Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "Visual Basic .NET is object oriented programming language"
Dim words As String() = str.Split({" "}, StringSplitOptions.None)
Dim word As String = ""
Dim max_len As Integer = 0
For Each s As String In words
If s.Length > max_len Then
word = s
max_len = s.Length
End If
Next
Console.WriteLine(word)
End Sub
End Class
' run:
'
' programming
'