[RESOLVED] How to add comma

[gavio]

Dim n As Long

For n = 0 To List1.ListCount - 1
  Text1.Text = Text1.Text & "[" & List1.List(n) & "]"
  
  If n <> List1.ListCount - 1 Then Text1.Text = Text1.Text & ", "
Next n