Como se hace para colocar un envío automático por medio de una macro y una codificación que nunca se repita

Quiero generar un código para outlook, que me responda automáticamente un correo pero que en el cuerpo del mensaje que responde asigne un numero consecutivo que no se repita nunca, a continuación les relaciono el código que tengo actualmente pero que solo reenvía el correo, y me falta que coloque un consecutivo como respuesta,

Sub AutoReply(Item As Outlook.MailItem)
Dim objReply As Outlook.MailItem
Set objReply = Item.Reply
With objReply

.Subject = "RE: " & objReply.Subject
'Texto del cuerpo de correo
.HTMLBody = "Recibido.<bt><br>" & objReply.HTMLBody
.Send
End With
Set objReply = Nothing
End Sub