Language Basics VB.Net

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