Dim Msg, Style, Title, Response, MyString
List13.SetFocus
Dim intItemNum As Integer, strMsg As String
intItemNum = 0
For intItemNum = 0 To List13.ListCount - 1
If List13.Selected(intItemNum) Then
If strMsg = "" Then
strMsg = (List13.Column(1, intItemNum))
Else
strMsg = (strMsg) & " , " & (List13.Column(1, intItemNum))
End If
End If
Next intItemNum
Me.Text40 = strMsg