[Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

Boa noite, a todos!!!
Agradeço desde já a quem puder me ajudar

Estou com uma dificuldade em criar pastas e subpastas, baseado nos valores de três caixas de texto.
Tenho 3 campos no formulário e quero que conforme o valor destes campos seja criado as pastas

Ex.:
No Formulário
Campo1 = Ano 'Nova Pasta conforme o ano atual
Campo2 = Nome 'Um nome qualquer para a nova pasta
Campo3 = Filial 'Um nome qualquer para a nova pasta

A sintaxe seria: o caminho fixo nunca muda, já o variável sim,
CaminhoFixo = "C:\Pasta1\Pasta2\Pasta3\"
CaminhoVariável = Me.Ano & "\" & Me.Nome & "\" & Me.Filial
Caminho = CaminhoFixo & CaminhoVariável
Portanto a montagem das pastas ficaria assim: C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3

Com o código abaixo, simplesmente não cria as pastas
Já tentei alterando a posição do else, implementando com FileSystem.MkDir, tentei até criando pasta a pasta dando um MkDir após o outro e sem sucesso, se eu deixar apenas um caminho fixo vai de boa, mas quero que os nomes das pastas sejam criadas conforme a situação que vou criando no formulário.

Private Sub FncVerificaCaminho()
Dim Caminho As String
Caminho = "C:\Pasta1\Pasta2\Pasta3\" Me.Ano & "\" & Me.Nome & "\" & Me.Filial
On Error Resume Next
If Len(Dir(Caminho, vbDirectory) & "") > 0 Then
     'Verifica se existe a pasta, caso sim prossegue
   Else
     'Caso não, cria a pasta
           If Len(Dir(Caminho, vbDirectory) & "") = 0 Then
           MkDir Caminho
   End If
End If
End Sub

Desde já agradeço a quem puder me ajudar

Olá!

Com o MkDir terá que criar pasta por pasta

Mkdir "C:\Pasta1\Pasta2\Pasta3\2017"
MkDir "C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2"
MkDir "C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3"

Sucesso!

Bom Dia!!!

Perfeito Avelino, farei desta forma então, mas como que eu consigo passar o valor dos campos, que serão vários, para a função afim de que ela crie as pastas conforme o que está nos campos, inclusive o de data, há esqueci de mencionar, o campo Ano já vem com a fórmula =Agora() os demais serão textos digitados.

Mais uma vez agradeço a atenção.

Boa Noite!!!

Pesquisei bastante no fórum e em outros também e acabei encontrando a solução para o que eu precisava, realmente como o Avelino me disse foi necessário criar as pastas uma a uma, mas o que eu precisava era como criar estas pastas baseado em valores de campos existentes em meu formulário.

Bom, deixo o link do meu formulário para servir de exemplo para estudos a quem precisar, descompacte a pasta NomeAplicação diretamente na unidade C:\ para poder usar corretamente o sistema, obrigado!!!

Criar pastas e arquivo conforme nome em campos