VB6 Общий диалог

Question

Public Function Open_File(FileNames() As String)
On Error GoTo ErrorHandler
With CommonDialog
    .Filter = "Bitmap Image File (*.BMP)|*.BMP|All Files (*.*)|*.*"
    .DefaultExt = ".BMP"
    .DialogTitle = "Open"
    .MaxFileSize = 32767
    .Flags = cdlOFNAllowMultiselect + cdlOFNLongNames + cdlOFNExplorer
    .ShowOpen
    If .FileName = "" Then GoTo ErrorHandler
    FileNames() = Split(.FileName, vbNullChar)
End With
If UBound(FileNames) = 0 Then
    temp = FileNames(0)
    ReDim FileNames(1)
    FileNames(1) = temp
End If
Open_File = True
Exit Function
ErrorHandler:
    Open_File = False
End Function

Так что с этим кодом, если я вызываю это, чтобы указать несколько файлов, он работает отлично;однако, когда я помещаю больше чем несколько файлов, это превышает предел MaxFileSize.Есть ли способ получить много файлов с помощью механизма CommonDialog, или вы бы порекомендовали что-то еще полностью?