Code:
If Dir("MyDirectory", vbDirectory) <> "" Then
Msgbox "Directory exists"
End If