Language Basics VB.Net

Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
        ' define an array to hold friends in...
        Dim friends(2, 2) As String
        ' set the data...
        friends(0, PersonDataIndex.Name) = "Name 1"
        friends(0, PersonDataIndex.Email) = "Email 1"
        friends(0, PersonDataIndex.Sex) = "Sex 1"
        friends(1, PersonDataIndex.Name) = "Name 2"
        friends(1, PersonDataIndex.Email) = "Email 2"
        friends(1, PersonDataIndex.Sex) = "Ses 2"
        friends(2, PersonDataIndex.Name) = "Name 3"
        friends(2, PersonDataIndex.Email) = "Email 3"
        friends(2, PersonDataIndex.Sex) = "Sex 3"
        AddFriendsToList(friends)
    End Sub
    
    Shared Sub AddFriendsToList(ByVal friends(,) As String)
        Dim row As Integer
        For row = 0 To UBound(friends, 1)
            Dim buf As String = ""
            Dim column As Integer
            For column = 0 To UBound(friends, 2)
                buf &= friends(row, column) & ", "
            Next
            
            Console.WriteLine(buf)
        Next
    End Sub
End Class
 
    Public Enum PersonDataIndex As Integer
        Name = 0
        Email = 1
        Sex = 2
    End Enum