вызвать функцию, используя поле ввода с флажком с оператором if / else

Question

Итак, у меня есть 2 функции, я хочу поле ввода, которое также имеет флажок, чтобы я мог выполнить оператор if / else.

Я пытался использовать пользовательские формы, но я не совсем понимаю, как получитьони работают правильно.

Я хочу использовать что-то вроде

If checkbox = True
   Call GetSubFiles
else 
   call GetAllFiles
end if

(даже не знаю, сработает ли его код псевдо)

2 функции, которые я хочу вызвать

Sub GetAllFiles()


Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
Dim Path As Variant

Path = InputBox("Enter filepath")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)

ActiveWorkbook.ActiveSheet.Cells.Clear

With Range("A1", "H1")
    .Interior.Color = RGB(12, 2, 120)
    .Value = "Table of Contents"
    .Font.Bold = True
    .Font.Size = .Font.Size + 3
    .Font.Color = RGB(255, 255, 255)
End With

Range("A1").Value = "Directory"
Range("B1").Value = "File Name"
Range("C1").Value = "Size KB"
Range("D1").Value = "Date Created"
Range("E1").Value = "Date Last Modified"
Range("F1").Value = "Date Last Accessed"
Range("G1").Value = "Path Length"
Range("H1").Value = "File Type"

Call GetFileDetails(objFolder)

End Sub

Если флажок не установлен

и

Sub GetSubFiles()

ActiveWorkbook.ActiveSheet.Cells.Clear

With Range("A1", "H1")
    .Interior.Color = RGB(12, 2, 120)
    .Value = "Table of Contents"
    .Font.Bold = True
    .Font.Size = .Font.Size + 3
    .Font.Color = RGB(255, 255, 255)
End With

Range("A1").Value = "Directory"
Range("B1").Value = "File Name"
Range("C1").Value = "Size KB"
Range("D1").Value = "Date Created"
Range("E1").Value = "Date Last Modified"
Range("F1").Value = "Date Last Accessed"
Range("G1").Value = "Path Length"
Range("H1").Value = "File Type"

Call listSubFiles

End Sub

Если флажок установлен

, это поле ввода должно быть в состояниивзять строку для filepath и флажок true или false, чтобы решить, должен ли он перечислять содержимое подпапки или только саму подпапку