[RESOLVED] Storing data in arrays

[Yumby]

Thanks for that.

        Dim wordat(9)
        Dim thefil As String
        Dim therow As String()
        Dim datval As String
        thefil = My.Application.Info.DirectoryPath & "\test.txt"
        Using therea As New Microsoft.VisualBasic.FileIO.TextFieldParser(thefil)
            therea.TextFieldType = FileIO.FieldType.Delimited
            therea.SetDelimiters(",")
            While Not therea.EndOfData
                therow = therea.ReadFields()
                x = 0
                For Each datval In therow
                    wordat(x) = datval
                    MsgBox("wordat is " & wordat(x))
                Next
            End While
        End Using