Dim str as string="4,5,6"
Dim arr() As String = str.ToString.Split(",")
Now, using for loop you can add this data in any datatable, dataset or as per your requirement.
For Eg. to add this data in Listbox
For i As Integer = 0 To arr.Length - 1
ListBox1.Items.Add(arr(i).ToString)
Next