AuthorNames Arrary

Sub InitializeAuthorNames()
    Dim AuthorNames(6) As String

    AuthorNames(0) = "Bruce Patton"
    AuthorNames(1) = "Eric Ries"
    AuthorNames(2) = "James Clear"
    AuthorNames(3) = "Kevin Kruse"
    AuthorNames(4) = "Roger Fisher"
    AuthorNames(5) = "Simon Sinek"
    AuthorNames(6) = "William Ury"

    ' Example of how to use the array
    Dim i As Integer
    For i = LBound(AuthorNames) To UBound(AuthorNames)
        Debug.Print AuthorNames(i)
    Next i
End Sub