Private Sub List2_DblClick()
  With List2
    If .ListIndex > -1 Then
      txtHcp.Text = Left$(.List(.ListIndex), InStr(.List(.ListIndex), " -" & _
        "Multiplikant") - 1)
      .Enabled = False
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de