Create Folder and subfolder

Hey Reader,

i am trying to make a code that create's a folder and directly after makes a folder in that created folder.

Sub Create_Folder()

Dim path As String

path = "C:\Users\name\Desktop\Program_DB\" & Me.TextBox1

End Sub

What i want is that vba makes a folder in first created folder with the name:

"ID" & Me.TextBox1

is there any solution for my problem??