主题：复选列表框合成表达式

求教：要从复选列表框选中项合成这样的字符串：         日期|90|产品|120|客户|120|数量|60

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each idx As Integer In l.CheckedIndices
If s > "" Then
s = s & "|60"
End If
s = s & "|" & l.Items(idx) & "|60"
Next
MessageBox.show(s)  

现在的结果是              

去掉红色的结果是“             |日期|60|产品|60|客户|60|数量|60

这段代码哪里错了？