Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim friends(4) As String friends(0) = "1" friends(1) = "2" friends(2) = "3" friends(3) = "4" friends(4) = "5" Console.WriteLine(friends(2)) End Sub End Class