Option Explicit
Global strP1, strP2, GotP1, GotP2, path As String


Sub CEL1()

If PathExists2("C:\temp") = False Then MkDir path Else: MsgBox "Папка " & path & " существует"

End Sub

Function PathExists2(path) As Boolean
Dim FileSys As Object, FolderObj As Object
'проверка существования папки
Set FileSys = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set FolderObj = FileSys.getfolder(path)
If Err =  0  Then
PathExists2 = True
Else
PathExists2 = False
End If
End Function

Private Function PathExists(Pname) As Boolean
    'функция проверки папки
    Dim x As String
    On Error Resume Next
    x = GetAttr(Pname) And  0 
    If Err =  0  Then PathExists = True
End Function