Visual Basic - Yo lo solucione asi

'*********************************************************************
' Exists_TheDirectory(ByVal DirName As String) As Boolean
'
' Check if the directory passed exists
'
' Input: DirName, a directory name, e.g. "D:\MyDir"
' Returns: True or False
'
Public Function Exists_TheDirectory(ByVal DirName As String) As Boolean
Dim sDir As Variant

sDir = Dir(DirName, vbDirectory)

If Len(sDir) = 0 Or sDir = "." Then
Exists_TheDirectory = False
Else
Exists_TheDirectory = True
End If

End Function

Solucionaste que, pq. no lo pones como respuesta del mensaje que corresponda o dices que es almenos