Visual Basic - Como buscar una carpeta

Hola!
Querria saber si existe alguna manera de saber si existe una carpeta al estilo de la instrucción dir que funciona con los archivos.
Muchas gracias.

Con este procedimiento buscas los nombres de todas las carpetas que hay dentro de una Unidad de disco o de otra carpeta. Debes insertar un CommandButton y un TextBox, establecer las propiedades del TextBox: MultiLine = True y ScrollBars = 3.

Function ListarDirectorios(MiRuta As String) As String
MiNombre = Dir(MiRuta, vbDirectory)
Do While MiNombre <> ""
If MiNombre <> "." And MiNombre <> ".." Then
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
ListarDirectorios = ListarDirectorios + MiNombre + vbNewLine
End If
End If
MiNombre = Dir
Loop
End Function

Private Sub Command1_Click()
'Lista los directorios de la unidad C
Text1.Text = ListarDirectorios("C:\")
'Lista los directorios de la Carpeta Windows
'Text1.Text = ListarDirectorios("C:\Windows\")
End Sub

Esta es otra función, pero está sirve para averiguar si existe una determinada carpeta:

Private Sub Command1_Click()
Dim LaRuta As String
LaRuta = InputBox("Ingrese la ruta de la carpeta", "Ingresar")
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

Expero que te ayude. Saludos y suerte ^.^