Combine add [ ] , and vbCrLf

[matrik02]

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?

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"