[megaloman]

maxim43g, Тестовое сообщение появляется? ("Отладка !!!!" .....)? Может, в этот день нет родившихся?
Я всего лишь заменил в вашем скрипте ручной ввод сообщения, и ничего другого я не трогал
Обязательно замените

strMessage = GetBirthDay("Z:\Box_In\birthday.txt")
на
strMessage = Replace(GetBirthDay("Z:\Box_In\birthday.txt"),vbCrLf," === ")

так как msg неправильно воспринимает символы возврат каретки и перевод строки (CrLf)

Я не стал делать аварийное сообщение, если скрипт не находит реестр с днями рождения - решил, что если помещать скрипт в назначенные задания, это сообщение будет вредно, поэтому, на этапе отладки, я вставил отладочное сообщение, чтобы оценить работу скрипта