Imports System
Public Module Module1
Public Sub Main()
Dim arr() As String = {"c++", "python", "c#", "java"}
Dim shortest_string As String = arr(0)
For Each s As String In arr
If s.Length < shortest_string.Length Then
shortest_string = s
End If
Next
Console.Write(shortest_string)
End Sub
End Module
' run:
'
' c#
'