Searching for Folders

HI All

I would like some help please to be able to change the code below to search for folders across driver letters D - O instead off just drive D

Private Sub CmdSearch2_Click()

Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists("D:\" & SearchBox.Text) Then ' Searches if Folder Exists
Shell "EXPLORER D:\" & SearchBox.Text, vbNormalFocus ' Opens Folder in Explore if Exists
SearchBox.SetFocus ' set Focus on SearchBox
SearchBox.Text = "" ' Clear SearchBox
Else

MsgBox (" FOLDER NOT FOUND " & Chr(13) & Chr(13) & " PLEASE CHOOSE MONTH OR") & Chr(13) & Chr(13) & (" PLEASE RE-TYPE AND TRY AGAIN!!!") ' Displays Message
SearchBox.SetFocus ' set Focus on SearchBox
SearchBox.Text = "" ' Clear SearchBox
End If

End Sub

Kind Regards

steve