VB2008 Express Edition - Nach Unterordner suchen

Hallo zusammen,

Ich bin relativ neu in VB 2008 und habe folgendes Problem:
Ich möchte eine Suchroutine schreiben, die in einem vorgegebenen Ordner prüft, ob einen bestimmter Unterordner,Unterunterordner,... vorhanden ist .
Leider konnte ich bis jetzt nur Routinen finden, die nach Dateien suchen, damit kann ich aber nichts anfangen. Mich interessieren nur die Ordner bzw.
ob sie vorhanden sind.
Gibt es hier jemand, der mir weiterhelfen kann?

Schon mal vielen Dank vorab!

Gruß Bernd

Dim found As String = ""  
For Each foundDirectory As String In _
    My.Computer.FileSystem.GetDirectories _
     ("D:\", _  
     Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, _
     "Ordnername")  
    found = found & ";" & foundDirectory)  
Next
MsgBox(Mid(found, 2))