Label To Display A Word For 5 Seconds And Then Move Down The List In A Text File And Display The Next Word?

I have a label that is supposed to display a word for 5 seconds and then move down the list in a text file and display the next word.I'm oddly able to make it work in random mode, but not going down the list in order.. random would be ok if used words didn't come up again.

Code:
Dim DurHold As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "FlashWords.txt")
Dim DurDelimiters() As String = {vbNewLine}
Dim DurTextLines() As String = DurHold.Split(DurDelimiters, StringSplitOptions.RemoveEmptyEntries)

[code].....