Imports System
Imports System.Text
Public Class Program
Public Shared Sub Main()
Dim arr As String() = New String() {"VB.NET", "Java", "Python", "C"}
Dim sb As StringBuilder = New StringBuilder("arr:").AppendLine
For Each item As String In arr
sb.Append(item).AppendLine()
Next
Console.WriteLine(sb)
End Sub
End Class
' run:
'
' arr:
' VB.NET
' Java
' Python
' C
'