Starting a function after invalid path is found

[Twodogs]

Or you could use the FileSystemObject;

Add a reference to Microsoft Scripting Runtime

Public Sub FindMyFolder(byval strFolderName as string) 
dim fso As Scripting.FileSystemObject

Set fso = new Scripting.FileSystemObject
If Not fso.GetFolder(strFolderName) then
 call DoSomethingWhenFolderIsNotThere
Else
 Call DoSomethingWhenFolderIsThere
End If
Set fso = nothing
End Sub