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