assuming that each word is delimited by a comma you could use Split()

Dim arySingleWordsArray

arySingleWordsArray = Split("Hi,My,Name,Is, Smie",",")

after that line, arySingleWordsArray would contain a zero-based single dimension array of each word separated by a comma.
arySingleWordsArray(0) = "Hi"
arySingleWordsArray(1) = "My"
arySingleWordsArray(2) = "Name"
arySingleWordsArray(3) = "Is"
arySingleWordsArray(4) = "Smie"

...from here you can spin through and add each one to a list box.