Combine add [ ] , and vbCrLf

I want to combine and add it in the textbox.. For information I want to show vbCrLf in the textbox not adding new line. The problem in the findlabel text. I don't manually but the listbox items always changing.. How I can code for FindLabel text?

Quote:

---

Dim n As Long
TextBox7.Text = ""
For n = 0 To ListBox2.ListCount - 1
TextBox7.Text = TextBox7.Text & "[" & ListBox2.List(n) & "]"
If n <> ListBox2.ListCount - 1 Then TextBox7.Text = TextBox7.Text & ", "
Next n
TextBox7.Text = "Function FindLabel ( " & TextBox7.Text & ")" & vbCrLf & _
"FindLabel = [Code] & vbCrLf & [N] & vbCrLf & [name]" & vbCrLf & _
"End Function"

---

i am not sure what you are trying to achieve, do you want all the vbCrLf to display in the textbox as text or new lines, or some of each?