Detect if user hits cancel from user input type box

ok, i figured it out..



see code below

Sub get_list_of_files_and_path(file_array() As Variant, Path1 As String, open_error As Boolean)

Dim Cnt As Long
Dim ExcelFiles() As Variant
Dim FilePath As String
Dim FileName As String
Dim objShell As Object
    
    open_error = False
    
    Set objShell = CreateObject("Shell.Application")
    
    Set oFolder = objShell.BrowseForFolder(0, "Pick a Folder to Open", 0)
    If oFolder Is Nothing Then
        open_error = True
        Exit Sub
    End If