Imports System.Text
Module Module1
Sub Main()
Dim lang As String() = New String() {"VB.NET", "Java", "C#", "PHP"}
Dim sb As StringBuilder = New StringBuilder()
For Each s As String In lang
sb.Append(s).AppendLine()
Next
Console.WriteLine(sb.ToString)
End Sub
End Module
' run:
'
' VB.NET
' Java
' C#
' PHP