split して配列に格納する

Dim strTest As String = "test1,test2,test3"
Dim aryTest As String() = strTest.Split(",")

' 出力
For Each item As String In aryTest
Debug.Print(item)
Next item