[RESOLVED] Listbox

How do i make a messegebox which will use a different word everytime and go in order. For example first msgbox will say Hello, second one will say Bye, 3rd Error

Code:

---

Private Sub Command1.Click()
Do
MsgBox (:sick:)
Loop
End Sub

'Listbox
Hello
Bye
Error
Correct

---

try like

vb Code:

Private Sub Command1.Click()
for i = 0 list1.listcount - 1
  MsgBox list1.list(i)
Next
End Sub

Thanks alot westconn1