Split The String By Comma?

i would like to split my data from string and put it into integer and invidual string as sample below:

this is the data i want:

Private total() As Integer = {10, 6, 2, 1} 'here consider length = 4
Private towns() As String = {"A", "B", "C", "D"} 'here consider length = 4

below is the data i get it now:

Dim total2 as string = "10,6,1" 'here consider length = 1
Dim towns2 as string = ""A,"B","C","D"" 'here consider length = 1

how to split the total2 and towns2 i get and split into total() and towns() i want.

it is i need to write a for loop to split the string by comma?