Erro em Anexo no Email

Bom dia Presados(as)
Meu codigo esta dando erro no envio de anexo, abaixo o código:

Erro de compilaçao: Argumento nao é opcional

Function EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration


Set Config = New CDO.Configuration

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR DE EMAIL" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USUARIO" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SENHA" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

Set Mens = New CDO.Message

With Mens

Set .Configuration = Config
.From = "Eracles Soluçoes em Identificaçao" 'quem envia

If Not IsNull(Me.TxtEmailVendedor) Then
.Sender = Me.TxtEmailVendedor 'email de quem envia.
End If

.Subject = Me.Txt_Tratativa 'caixa texto assunto
.TextBody = Me.TxtCorpo 'Caixa texto com o texto"

If Not IsNull(Me.TxtEmail) Then
.To = Me.TxtEmail 'caixa texto para quem vai o email"
End If

If Not IsNull(Me.TxtLayout) Then
.AddAttachment = Me.TxtLayout
End If

.Send ' envia

End With

MsgBox "Menssagem enviada com sucesso"

Set Mens = Nothing
Set Config = Nothing
Exit Function

erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Function

End Function

Grande abraço a todos!

Boa tarde,
O código indica que está num formulário (com a expressão Me). Se não estiver num formulário, retire essa expressão