With dlgCommonDialog
        .DialogTitle = "Öffnen"
        .CancelError = False
        'Zu erledigen: Festlegen der Flags und Attribute des 
        ' Standarddialog-Steuerelements
        .Filter = "Musik (*.mp3)|*.mp3"
        .ShowOpen
        .m
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With