Oprette biblioteker

Jeg har en commandbutton der opretter biblioteker efter hvad der står i et bestemt textboks i mit VB6 program, det ser sådanne her ud:
---------------------------------------------------

Private Sub Command4_Click()
MkDir "c:\" & navn.Text
End Sub

----------------------------------------------------
Nu er det at jeg osse vil have at der bliver oprette
et par extra mapper i denne nye mappe... MEN, hvilken kode skal jeg sidde ind??

Hvis vi nu siger at en af mapper skal hedde "hus", hvaså??

Nogen der vil hjælpe mig??