Function FldImplode(fld As NotesItem, sepstr As String) As String
	' returns the values contained in a field as concatenated string
	
	On Error Goto FErrorHandler
	
	' check sepstr
	If sepstr = "" Then
		sepstr =";"
	End If
	' start returned string w/nothing
	FldImplode=""
	
	' check fld exists
	If (fld Is Nothing) Then
		Exit Function
	End If
	
	' build list of elements
	Forall fldval In fld.values
		If (FldImplode="") Then
			' first value
			FldImplode = Trim(Cstr(fldval))
		Else
			' not first value
			FldImplode = FldImplode & sepstr & Trim(Cstr(fldval))
		End If
	End Forall
	
FExit:
	Exit Function
	
FErrorHandler:
	' return ""
	FldImplode=""
	Resume FExit
End Function