Imports System
Public Module Module1
Public Sub Main()
Dim arr() As String = {"c++", "python", "c#", "java"}
Dim longest_string As String = String.Empty
For Each s in arr
If Not String.IsNullOrEmpty(s) AndAlso s.Length > longest_string.Length Then
longest_string = s
End If
Next
Console.Write(longest_string)
End Sub
End Module
' run:
'
' python
'