How to populate an array from text file in Visual Basic for PowerPoint 2010

Question

I\'d like to define an array like:

sample_array = Array( _
\"foo\", _
\"bar\", _
...
\"dog\", _
\"cat\" _
)

...in a macro written in VB for

Answer 1

Dim arr() as String
dim i as Integer
i=0
Open "c:\test.txt" For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
    Line Input #1, arr(i) ' read next line from file and add text to the array
    i=i+1
    redim preserve arr(i) ' Redim the array for the new element
Loop
Close #1 ' Close file.