Private Sub cmdListeMPR_Click()
ListBoxMPR.Clear
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

 Call cmdListeMPR_Click

Private Sub cmdKonverter_Click()
Dim Ergebnis    'Direkte Konvertierung dxf zu mpr
Dim h As Integer
With ListBoxDXF
    For h = 0 To .ListCount - 1
        If .Selected(h) = True Then
            Ergebnis = Shell("C:\...")
            ''Call cmdListeMPR_Click
        End If
        'Call cmdListeMPR_Click
    Next h
    'Call cmdListeMPR_Click
End With
Call cmdListeMPR_Click
End Sub

VG

Dirk