Code: Select all
Private Sub Test_Click()
myVar = ""
For X = 0 To Me.Test.ListCount - 1
If Me.Test.Selected(X) Then
If myVar = "" Then
myVar = Me.Test.List(X, 0)
Else
myVar = myVar & "," & Me.Test.List(X, 0)
End If
End If
Next X
Me.txt2.Value = myVar
End Sub