Function stringToList(AString, ADelimt)

	Dim theList()
	Dim work
	Dim c1, arCount
	
	work = AString
	c1 = 1
	arCount = -1
	Do While (c1 > 0)
		c1 = InStr(work,ADelimt)
		
		If c1 > 0 Then
			arCount = arCount + 1
			ReDim Preserve theList(arCount)
			
			theList(arCount) = Left(work,(c1-1))			
			
			work = Mid(work,c1+1,Len(work))			
		End If
	Loop
	
	arCount = arCount + 1
	ReDim Preserve theList(arCount)
	theList(arCount) = work
	stringToList = theList

End Function

Takes a delimited string and a the delimiter, and returns a dynamic arrary

stringToList (VBScript)

windows

Visual Basic