VBA- mappenstructuur meerdere lagen

[jellapella]

Besten,
Allereerst moet gezegd dat ik een ontzettende newbie ben op VBA gebied. Wat ik doe binnen VBA is op basis van google, en dit forum. Daardoor kan ik op basis van een excel twee lagen aanmaken in een mappenstructuur, zoals "C:test/vakantie/dag_1" op basis van kolom A (vakantie) en kolom B (dag_1). Maar hoe voeg ik nog een laag in de mappenstuctuur aan? Kolom C, zeg maar? Als ik daar eenmaal achter ben, denk ik dat mijn intelligentie wel weer verder komt met bijvoorbeeld kolom D en verder.
De best werkende code die ik online gepakt heb voor twee lagen:

Sub MaakMappen()
    Dim q1 As Variant, i As Integer
    On Error Resume Next
    q1 = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = LBound(q1) To UBound(q1)
        If Dir("\\cloud.online.nl\blablabla\" & q1(i, 1)) = "" Then MkDir "\\cloud.online.nl\blablabla\" & q1(i, 1)
        MkDir "\\cloud.online.nl\blablabla\" & q1(i, 1) & "\" & q1(i, 2)
    Next i
End Sub

Wat moet ik hieraan toevoegen om kolom C ook in mijn mappenstructuur te krijgen?
Alvast many thanks!

 

[masc007]

Verander A1:B in A1:C

En voeg toe achter de laastste 'MkDir' MkDir "\\cloud.online.nl\blablabla" & q1(i, 1) & "" & q1(i, 2) & "" & q1(i, 3)

Overigens is de code niet erg goed te begrijpen en zeker voor een beginner maar het doet wat je wilt en als dat het doel is: cest ca!

 

[jellapella]

Logisch, maar was ik zelf niet achter gekomen. Het werkt (met wat typo's eruit) als een tierelier! Dank.

 

[snb]

Sub M_snb()
  sn=sheet1.cells(1).currentregion

  with CreateObject("shell.application").Namespace("\\cloud.online.nl")
    for j=1 to ubound(sn)
     .NewFolder = "\bla\" & join(application.index(sn,j),"\")
    next
  end with
End Sub