You can split the string
"Cats,Dogs,Horses,Birds" to the substrings "Cats", "Dogs", "Horses" and
"Birds".
The code
below use
the function 'split' that available only in VB 6.0 and above.
Form Code
Private
Sub Form_Load() Dim strAnimals As String Dim iCounter As
Integer Dim arrAnimals() As String
strAnimals = "Cats,Dogs,Horses,Birds" 'replace the ","
below with your delimiter arrAnimals = Split(strAnimals,
",")
For iCounter = LBound(arrAnimals) To
UBound(arrAnimals) MsgBox arrAnimals(iCounter) Next
