get list of folders in a directory

Hi,

I have MyDirectory defined as follows:

MeUser = CStr(Environ("USERPROFILE"))
MyDirectory = MeUser & "\OneDrive - My Co, Inc\Shared\JOBS\"

I am trying to get a MsgBox with a list of the folders within the "JOBS" folder (no need to list subfolders).

Please advise.
Thanks