Sorry, must have missed that part...
Find the following code (5 times again, same lines as above):
monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
and change it to
day(strBirthDate) & " " & monthName(Datepart("m",strBirthDate)) & ")"