Visual Basic - URGENTE, ¿que le pasa a este código?

Pues eso, tengo este código que copia el contenido de un list-box al portapapeles, pero separa los items por comas ,. Lo que quiero es que los separe uno a uno en cada línea. Gracias.
On Error Resume Next
Dim SN As Long, TheList As String
For SN = 0 To list1.ListCount - 1
If SN = 0 Then
TheList = list1.List(SN)
Else
TheList = TheList & "," & list1.List(SN)
End If
Next
Clipboard.Clear
Clipboard.SetText TheList
Label1.Caption = list1.ListCount

Aquí es donde lo separa por comas y salen todos seguidos.
TheList = TheList & "," & list1.List(SN)
¿como hago para que los separe con ENTER (uno en cada linea)?

Aquí es donde lo separa por comas y salen todos seguidos.
TheList = TheList & "," & list1.List(SN) & Vbcrlf ' Vbcrlf hace que vaya a la otra linea.

Suerte
De Harold [email protected]

Harold... como siempre mil gracias. Mañana te la pondré mas difícil....

Probá esto :
TheList = TheList & Chr(13) & list1.List(SN)
El 13 es el código de el salto de linez y chr te lo transforma a texto.
Espero que te sirva.
Un salu2