acesso a pasta com senha de rede

Senhores boa noite

anexo fotos a uma pasta de rede utilizando o seguinte código conseguido aqui no fórum:

im strCaminho As String, strPastaInicial As String, strCaminhoPasta
Dim CopiaSegura As Object


strPastaInicial = "C:\documentos\imagens"
strCaminhoPasta = CaminhoBE() & "\Fotos\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")

If Len(strCaminho) > 0 Then

Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, strCaminhoPasta & Me.codigo_pessoa & "-2.jpg"

localfoto2 = strCaminhoPasta & Me.codigo_pessoa & "-2.jpg"
Me.foto2.Picture = localfoto2

Me.foto2.Requery


End If


tudo funciona perfeitamente, o problema que tenho é que todos os usuários do sistema precisam ter acesso de criar, ler e excluir na pasta

o que possibilita acesso por fora do sistema, então tive a ideia de criar uma conta para o sistema e dar permissão na pasta para que todo o tramite de criar, ler e apagar seja feito por esta conta

só que não consegui um exemplo de como implementar isso no vba

podem me ajudar?

abraços