Visual Basic - Buscar Directorio

Hola a todos quisiera saber si alguien sabe el codigo para saber si existe un directorio o carpeta gracias

Conoces el FileSystemObject, es una libreria de objetos que te ayudan con la manipulacion de archivos y carpetas.

Esta en la ayuda de Visual, pero si no entiendes puedes contactarme sin ningun problema

Private Sub Command1_Click()
Dim LaRuta As String
LaRuta = InputBox("Ingrese la ruta de la carpeta", "Ingresar")
'MsgBox ExisteCarpeta(LaRuta)
MsgBox ExisteCarpeta(StrConv(Trim(LaRuta), vbProperCase))
End Sub

Function ExisteCarpeta(Ruta As String) As String
If Dir(Ruta, vbDirectory) <> "" Then
ExisteCarpeta = "La carpeta existe"
Else
ExisteCarpeta = "La carpeta no existe"
End If
End Function