Sub MPR_String()
Dim MPRString As String
MPRString = OptionenCNC.TextBoxMPR.Text & "\"
Dim NurMPR As String
NurMPR = Dir(MPRString & "*.mpr")
Do While NurMPR <> "" 'Wiederholen bis cFile=""
    With CNCDXFMPR.ListBoxMPR
        .AddItem (NurMPR)
        'nächste Datei
    NurMPR = Dir ' Aufruf der Funktion ohne Parameter!!
        .ListIndex = 0
    End With
Loop
End Sub

VG

Dirk