Oops ... Here is code that will handle UNC paths

Public Function fFolderExists(strFullPath As String) As Boolean
'Author       : Boyd Trimmell aka HiTechCoach at http://www.hitechcoach.com
'Purpose: Check if a folder exists
    
Dim strFolderPath As String

    strFolderPath = strFullPath
    
    ' make sure folder path ends with a \
    If Right(strFolderPath, 1) <> "\" Then strFolderPath = strFolderPath & "\"
    
    On Error GoTo Err_handler
    If Not Dir(strFolderPath, vbDirectory) = vbNullString Then fFolderExists = True
    
    
    Exit Function
    
Err_handler:
    If Err.Number <> 52 Then MsgBox Err.Number & " " & Err.Description

End Function