Works for me...
Code:
'check to see if a folder or directory does

Private Sub Command1_Click()
If Dir("C:\MyFolder\MySub", vbDirectory) <> "" Then
    MsgBox "Folder exists"
Else
    MsgBox "Folder does not exist"
End If
End Sub