If I'm understanding you correctly, the following function will
return a delimited string containg the selected list items. The
delimiter = "^"

Code:
Function SelectedList(List1 as listbox) as string
   Dim I as integer
   Dim Ret_Val as string

   Ret_Val = ""  
   For I = 0 To List1.ListCount - 1
      If List1.Selected(I) Then
         Ret_val = Ret_val & "^" & List1.List(I)
      End If
   Next I

Xit_SelectedList:
      SelectedList=Ret_Val
End Function
HTH