Uso del listbox

[foreneo]

alguien que sepa como hacerle para agregar en un campo, todo el contenido de un listbox y no nada mas la primera linea del list box

[VisualGuallabo]

Como no se a que tipo de campo te refieres me hare la idea de que campo es una variable.
Dim campo as String
For a=0 to List1.ListCount-1
List1.ListIndex=a
campo=campo & List1.Text
Next a

[foreneo]

es un campo de ventas, lo que quiero es que lo que esta en rojo se pase para esa celda de datagrid