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