Is there any way to alter the following expression to return a double digit
for single digit months (i.e. 08 instead of 8) without adding more lines of
code?

strMonth=Month(Range("A4").Value)