With CommonDlg
        .DialogTitle = "Öffnen"
        .CancelError = False
        .FilterIndex = 2
        .Filter = "Module (*.bas,*.frm,*.cls)|*.bas|*.frm|*.cls"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
End With

Gr??e

Hoffi

"Dummheit ist keine Schande. Hauptsache man h?lt den Mund dabei."
(Werner Mitsch, dt. Aphoristiker, 1722-1873)