Dim strItems As String = "Item1,Item2,Item3,Item4"
Dim strArray As String() = strItems.Split(",")
' Iterate through a collection
For Each item As String In strArray
ListBox1.Items.Add(item.Trim())
Next
:https://social.msdn.microsoft.com/Forums/en-US/2361f605-cace-4913-b047-2473b9936b0f/split-string-to-listbox?forum=vblanguage
xD