Macro Outlook responder segun asunto y anexar documento?

Actualmente tengo un macro que anexa un documento y lo envia al remitente seleccionado, (al final de la descripcion agregare el codigo), pero necesito algo mas:

Necesito que el correo se reponda automatico y que anexe un documento segun el asunto del correo entrante. Por ejemplo si el correo entrante dice X en el asunto, que se anexe el archivo X, y se envie sin yo tener que intervenir

No soy programador, necesito la respuesta lo mas explicativa posible

Sub RespuestaConAdjunto()

Const REPLY_TEXT = "Mapa"
Const ATTACH_PATH = "C:\Users\xxxxxxxxx\Desktop\Proyectos\111.txt"
Dim olkmsg As Outlook.MailItem, olkRpl As Outlook.MailItem
Set olkmsg = Application.ActiveExplorer.Selection(1)
Set olkRpl = olkmsg.Reply
With olkRpl
    Select Case olkRpl.BodyFormat
        Case olFormatHTML
            olkRpl.HTMLBody = REPLY_TEXT & olkRpl.HTMLBody
        Case Else
            olkRpl.Body = REPLY_TEXT & olkRpl.Body
    End Select
    olkRpl.Attachments.Add ATTACH_PATH
    olkRpl.Send
    End With
    Set olkmsg = Nothing
    Set olkRpl = Nothing
End Sub