Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim friends() As String = {"A", "B", "C","D", "E"} AddFriendsToList(friends) End Sub Shared Sub AddFriendsToList(ByVal friends() As String) Dim friendName As String For Each friendName In friends Console.WriteLine("[" & friendName & "]") Next End Sub End Class