Create Sub Directories

Hi All.
I have searched forums......honest!! But cannot find an answer.

I have the following code to make a directory....the directory name is as the ID_number....

---------------------------------------------------
Private Sub Command216_Click()
Dim strDirectoryPath1 As String
strDirectoryPath1 = "\\server1\Helpdesk_Calls\" + CStr(Me.ID_Number)

If Len(Dir$(strDirectoryPath1 & "\.", vbDirectory)) <> 0 Then
MsgBox "The project folder already exists, the folder will now open"


stAppName = "C:\Windows\explorer.exe \\server1\Helpdesk_Calls\" + CStr(Me.ID_Number)
Call Shell(stAppName, 1)

Else
MkDir (strDirectoryPath1)
MsgBox "A folder has been created on the network at location \\Server1\Helpdesk_Calls\" + CStr(Me.ID_Number)
stAppName = "C:\Windows\explorer.exe \\Server1\Helpdesk_Calls\" + CStr(Me.ID_Number)
Call Shell(stAppName, 1)

End If

End Sub

------------------------------------------------


This works fine, and makes a directory on the network drive i.e

\\server1\helpdesk_calls\123456

My question is, how do I also make it create directories under this one i.e

\\server1\helpdesk_calls\123456\Emails

It is the ID_number that is throwing me....have tried with numerous goes!!

Many Thanks.

Frank.

Thanks very much for the answer.....
I did try some configuration of that.....just not in the correct order!!

Once again, thanks.

Frank.