Book Categories VBA Arrary

Sub InitializeBookCategories()
    Dim BookCategories(64) As String

    BookCategories(0) = "Acting"
    BookCategories(1) = "Advertising"
    BookCategories(2) = "Biography"
    BookCategories(3) = "Biology"
    BookCategories(4) = "Branding"
    BookCategories(5) = "Business"
    BookCategories(6) = "Career"
    BookCategories(7) = "Communication and social skills"
    BookCategories(8) = "Consumer behavior"
    BookCategories(9) = "Copywriting"
    BookCategories(10) = "Corporate Culture"
    BookCategories(11) = "Creativity"
    BookCategories(12) = "Customer Service"
    BookCategories(13) = "Dating"
    BookCategories(14) = "Decision Making"
    BookCategories(15) = "Design"
    BookCategories(16) = "Ecommerce"
    BookCategories(17) = "Economics"
    BookCategories(18) = "Entrepreneurship"
    BookCategories(19) = "Fitness"
    BookCategories(20) = "Future and Prediction"
    BookCategories(21) = "Habits"
    BookCategories(22) = "Happiness"
    BookCategories(23) = "Health"
    BookCategories(24) = "History"
    BookCategories(25) = "Innovation"
    BookCategories(26) = "Intimacy"
    BookCategories(27) = "Investing"
    BookCategories(28) = "Leadership"
    BookCategories(29) = "Learning"
    BookCategories(30) = "Management"
    BookCategories(31) = "Marketing"
    BookCategories(32) = "Memory improvement"
    BookCategories(33) = "Mindfulness"
    BookCategories(34) = "Minimalism"
    BookCategories(35) = "Money"
    BookCategories(36) = "Motivation"
    BookCategories(37) = "Negotiation"
    BookCategories(38) = "Nutrition"
    BookCategories(39) = "Parenting & Family"
    BookCategories(40) = "Peak Performance"
    BookCategories(41) = "Personal Growth"
    BookCategories(42) = "Philosophy"
    BookCategories(43) = "Politics"
    BookCategories(44) = "Presentation and public speaking"
    BookCategories(45) = "Productivity"
    BookCategories(46) = "Psychology"
    BookCategories(47) = "Public relations"
    BookCategories(48) = "Publishing"
    BookCategories(49) = "Reading skills"
    BookCategories(50) = "Real estate"
    BookCategories(51) = "Relationships"
    BookCategories(52) = "Religion"
    BookCategories(53) = "Sales"
    BookCategories(54) = "Science"
    BookCategories(55) = "Screenwriting"
    BookCategories(56) = "Sleep"
    BookCategories(57) = "Society"
    BookCategories(58) = "Spirituality"
    BookCategories(59) = "Startups"
    BookCategories(60) = "Storytelling"
    BookCategories(61) = "Strategy"
    BookCategories(62) = "Success"
    BookCategories(63) = "UI/UX"
    BookCategories(64) = "Writing"

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