Dim stringArray As String()
Dim value1 As String = "lions"
Dim value2 As String = "tigers"
Dim value3 As String = "bears"
stringArray = Split(value1 + "," + value2 + "," + value3)
Dim value4 As String = "Oh my!"
stringArray = Split(Join(stringArray, ",") + ","+ value4, ",";)
stringArray = Split("lions" + "," + "tigers" + "," + "bears", ",")
stringArray = Split(Join(stringArray, ",") + "," + "Oh my!", ",")