Private Sub lstBehandlungsformen_Click()
  Dim temp As String
  Dim i As Integer
 
  temp = ""
  With lstBehandlungsformen
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        temp = temp + .List(i) & " "
      End If
    Next i
  End With
  temp = RTrim$(temp)
  MsgBox temp
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de