Make Directories Using VBA

I need to use VBA to test if a certain directory exists and if not ten create it.

I do this with:
[CODE]Sub MakeDir()
Dim DirName As String
Dim FileName As String
Dim fnameshort As String

FileName = "C:TestA1ATest.xls"
fnameshort = Right(FileName, Len(FileName) - InStrRev(FileName, ""))
DirName = Left(FileName, Len(FileName) - (Len(FileName) - InStrRev(FileName, "")))

If Dir(DirName) = "" Then
MsgBox "Does not exist"
'Dir to be created using MkDIr
End if
End Sub/CODE]

My problem is that I need the script to loop back until it finds a folder that exists, and then make the respective subfolders.

Example:
C:TestA1A should be created, but currently only C:TestA exists.

VBA should then test for the full path, and when it finds out, that it does not exist, it should strip off one folder, test for that and so forth.

When it finds an existing folder, it should then make the respective subfolder, and then the subfolder to that...