Private Sub cmdkopieren_Click()
Dim StartFile As String
StartFile = OptionenCNC.TextBoxMPR.Text & "\"
Dim CopyName As String
Dim f As Integer
With ListBoxMPR
    For f = 0 To .ListCount - 1
        If .Selected(f) = True Then
            CopyName = StartFile & .List(f)
            FileCopy CopyName, TWNodeFile
        End If
    Next f
End With
End Sub

VG

Dirk