El problema que las variables no pasan de un Sub a otro Sub.
Para solucionarlo, lo que podés hacer es en el formulario crear un control que contenga el valor de Dir_Archivo, por ejemplo NombreFile, en el procedimiento Private Sub Adjunto_Click() escribis el código
me.NombreFile = nombrearchivo
Y en el procedimiento Private Sub Command20_Click()
With outMail
.TO = para
.CC = Concopia
.BCC = copiaoculta
.Subject = TitMsg
.Body = cuerpo
'.Attachments.Add Dir_Archivo ( aqui vuelvo a presentar el error )
Attachments.Add me.NombreFile
End With
fijate si funciona, si es OK, al control NombreFile le podés establecer la propiedad Visible = No, asi nadie se entera.
Exitos