Dim w
   Set w = CreateObject("Word.Application")
   w.Visible = False
   Set balloon1 = w.Assistant.NewBalloon
   balloon1.Heading = "Хотите узнать, что находится по адресу: http://www.script-coding.com"
   Set balloon2 = w.Assistant.NewBalloon
   balloon2.Heading = "Данный ресурс посвящён программированию на различных макроязыках и в скриптовых средах. Содержимое ресурса периодически пополняется. Если вы хотите безвозмездно опубликовать свою собственную статью или выложить свою программу (скрипт, обработку или конфигурацию для 1С:Предприятия, и т.п.), но вам негде это сделать самостоятельно, создайте тему на форуме, и ваше предложение будет обязательно рассмотрено в кратчайшие сроки."
   balloon1.Show
   balloon2.Show
   balloon1.Heading = "Спасибо за проявленный интерес к сайту http://www.script-coding.com"
   balloon1.Show
   w.Quit
   Set w = Nothing

Автор примера - Alexbootch.
Для работы примера помощник Microsoft Office должен быть установлен. Проверьте это, вызвав меню "Справка" - "Показать помощника".