mostra pasta em formulario

Ola amigos

Preciso de ajuda para o seguinte:

No formulário que tenho gostaria de colocar uma informação que poderia ser como campo texto ou qualquer coisa do gênero que mostra-se o caminho aonde esta salvo os documentos de um certo registro e caso seja alterado o cliente no caso que assim ocorra
Ex

Formulario Principal
Cliente A

Pasta:
C:\teste\clientea\


caso troque de cliente ele mostra o novo campo
Cliente C
Pasta:
C:\teste\clientec\

e caso não exista pasta criada
C:\teste

lembrado que no formulário eu já fiz a opção de criação de pasta , conforme código abaixo
Dim FSO As Object
Dim strlocal As String
strlocal = CurrentProject.Path & "\Empresas\" & Me.TXTCNPJ.Value & "-" & Me.NOME & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Len(Dir(strlocal, vbDirectory)) > 0 Then ' verifica se ja existe
Else
MkDir strlocal ' se nao existir cria
MsgBox ("Pasta da Empresa criada com sucesso !!!")
End If
Dim Msg, Style, Response, MyString
Msg = " Deseja abrir a pasta?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Application.FollowHyperlink (strlocal), , True

agradeço quem puder ajudar

Olá! passe o mesmo parâmetro que está usando para criar a pasta:

Código:

Dim Caminho As String
Caminho = CurrentProject.Path & "\Empresas\" & Me.TXTCNPJ.Value & "-" & Me.NOME & "\"

If Len(Dir(Caminho)) > 0 Then
    Me.NomeDeUmaLabelQualquer.Caption = Caminho
Else
    Me.NomeDeUmaLabelQualquer.Caption = CurrentProject.Path & "\Empresas\"
End If

Veja se é isso.