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 max As String = words(0), min As String = words(0)
Dim w As String
For Each w In words
If (w.Length < min.Length) Then
min = w
End If
Next
Console.WriteLine("The smallest word is: {0}", min)
End Sub
End Class
' run:
'
' The smallest word is: is
'