The code you have listed includes a variable strDate which is the date now
strDate = Format(Now, " yyyy-mm-dd")
This isn't used in the macro, but can be added to the filename e.g.
strName = strDate & Chr(32) & oFrm.TextBox1.Text
If you save an attachment, the filedate should be the sate it was saved.

e.g. I saved the following attachment a few minutes ago:

2017-04-28_15-50-53.jpg