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