After some experimentation I now have
Yr2Dig = Format(Me.DOB, "yy")
Mnth2Dig = Format(Me.DOB, "mm")
Day2Dig = Format(Me.DOB, "dd")
extracting the correct figures from the Date of Birth.
I now have the problem that
Format(me.DOB,"mm") produces just 6 for June whereas I need it to...