MoveList

'limited string:

Function ConvertList(cList As Control, ByVal sText As _
String, ByVal sDelimiter As String, Optional bClear As _
Boolean = False) As String
Dim lLoop As Long
Dim lFind As Long
If Len(sText) Then
If bClear Then cList.Clear
Do
lFind = InStr(sText, sDelimiter)
If lFind Then
cList.AddItem Left$(sText, lFind - 1)
sText = Mid$(sText, lFind + 1)
End If
Loop Until lFind = 0
If Len(sText) Then cList.AddItem sText
Else
For lLoop = 0 To cList.ListCount - 1
If lLoop = cList.ListCount - 1 _
Then sDelimiter = vbNullString
ConvertList = ConvertList & cList.List(lLoop) _
& sDelimiter
Next lLoop
End If
End Function

'Here's how you can call it to fill a list, then output the same list using a

'different delimiter:

Call ConvertList(List1, "yellow|green|red", "|", True)
Debug.Print ConvertList(List1, "", "/")
-----------------------------------------------------------------------------------------------------------------------------------------