[Resolvido]gravar local do arquivo em um campo no formulário

Pessoal boa tarde.

Estou com um projeto e não estou sabendo dar a solução.
Tenho um formulário que consta dois campos.
Descrição e caminho
Gostaria de criar um botão nesse formulário que fosse igual a um anexar de e-mail.
Mas que grava-se no campo “caminho” o caminho do arquivo que estou dando como descrição tipo c:\meus documento\arquivo.jpg.
Não sei como poderia criar um botão que abri-se essa janela para localizar e depois gravar esse caminho.

Daí vem a outra dúvida, como criar um botão que ao clicar leia esse caminho e abra o arquivo.

Pessoal vocês podem me ajudar.

Em um módulo novo:

Código:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

No seu botão:

Código:

Dim NomeArquivo As String
NomeArquivo = Me.NomeDoCampo
Call ShellExecute(0, vbNullString, NomeArquivo, vbNullString, vbNullString, 1)

Obrigado deu certo.