CommonDialogを使って複数のファイル名を取得したいのですが

ＥＸＣＥＬのＶＢＡで表現すると--------

Private Sub CommandButton1_Click()
    Dim aFile, i, D_Cell
    
        aFile = Application.GetOpenFilename _
            ("すべてのファイル (*.*),*.*", , , , True)

    Range("a4").Select
    
        If IsArray(aFile) Then
            For i = 1 To UBound(aFile)
                ActiveCell.Value = aFile(i)
                ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
                                                
            Next i
        Else
                ActiveCell.Value = aFile(i)
        End If
End Sub

--------このようなことを
ＶＢ６でおこないたいのです。

宜しくお願いします。

コモンダイアログの定数がヘルプにあります。
フラグの定数を複数選択可能にすればできます。

Lanternさん 有難うございました。