Imports System.Text
Module Module1
Sub Main()
Dim arr As Integer() = {1, 5, 7, 8, 30}
Dim sb As StringBuilder = New StringBuilder()
For Each n As Integer In arr
sb.Append(n).AppendLine()
Next
Console.WriteLine(sb.ToString)
End Sub
End Module
' run:
'
' 1
' 5
' 7
' 8
' 30