Select name from listbox

Hey,im wonderin i have around 200+ names in a listbox,im wanting to go through all names 1 by 1 into text box example:

will select the first name from the list box then put it into the text box,i cud have this on timer,so every like 30 secs it will select each name into the text box,but only 1 name at time thanks

Private Sub Timer1()
Text1 = List1.List(List1.Listindex+1)
if List1.Listindex = list1.Listcount -1 then Timer1.enabled = false
End Sub

VB Code:

Option Explicit
 
Private intIndex As Integer
 
Private Sub Timer1_Timer()
Text1.Text = List1.List(intIndex)
intIndex = intIndex + 1
End Sub

I had the timer interval set at 1000. You will probably want to play with that until it is just right for you.