Evento ao clicar em caixa de texto

Olá, como vão?

Minha dúvida é a seguinte:
Eu preciso colocar em uma caixa de texto links para determinados tipos de arquivos ou pastas.
Eu consigo normalmente com as propriedades do campo na tabela. Só que ao clicar no campo, ele retorna
o cursor ao modo edição de texto e permite que insira o link digitando ou com o botão direito do mouse.
Eu gostaria de ao clicar no campo com o botão normal do mouse e ele já abrisse a janela do windows explorer para procurar o arquivo ou pasta em questão quando em branco e preencher o campo com o link automaticamente para ser acessado no futuro quando necessário.
Podem me ajudar?
Grato pela atenção dispensada.

Com a ajuda da função criada no link abaixo
https://www.maximoaccess.com/t38582-buscar-diretorio-de-pasta-ou-arquivo-interativamente

Foi desenvolvido este código para o evento "ao clicar" da caixa de texto.

Código:

Dim arrFiltro(1 To 1, 1 To 2) As String
Dim strDir As String
    
If (Nz(Me!NomeSuaCaixaTexto.Value) <> "") And (Dir(Nz(Me!NomeSuaCaixaTexto.Value, ""), vbArchive) <> "") Then
    Call FollowHyperlink(Me!NomeSuaCaixaTexto.Value)
Else
    
    If Dir(Nz(Me!NomeSuaCaixaTexto.Value, ""), vbArchive) = "" Then _
        Call MsgBox("Arquivo não existe.", vbExclamation, "Link Quebrado")
        
    arrFiltro(1, 1) = "Todos"
    arrFiltro(1, 2) = "*"
        
    If fncBuscaDir(strDir, Arquivo, arrFiltro) Then Me!NomeSuaCaixaTexto.Value = strDir
        
End If

Muito obrigado!
Funcionou perfeitamente!
Só vou mudar o cursor para ter a aparência de link (mãozinha) e
testar o funcionamento em mais de uma caixa (mais ou menos 10)
no mesmo form.

Espero poder retribuir a atenção dispensada muito em breve.

Grande abraço!