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