Dim s as string = Tables("xxx").current("yyyy")
Dim vals() As String = s.Replace(vbcr,"").split(vblf)
For each val as string in Vals
output.show(val)
next