vba create directory if doesn't exist code example

Example: excel vba check if directory exists

Public Function IsDir(s)
    IsDir = CreateObject("Scripting.FileSystemObject").FolderExists(s)
End Function