Sub UsefulStringFunctions()
Dim sTestWord As String
sTestWord = "One, Two, Three, 4, Five, Six"
DemoSplit sTestWord
End Sub
Sub DemoSplit(sCSV As String)
Dim vaValues As Variant
Dim nIndex As Integer
vaValues = Split(sCSV, ",")
For nIndex = 0 To UBound(vaValues)
Debug.Print "Item (" & nIndex & ") is " & vaValues(nIndex)
Next
End Sub