Да блин скрипт-то на атомарном уровне простейший:

Код:
Sub BarCodeWizard()
 * *AppActivate "Barcode Wizard", False
 * *SendKeys "460000000000", False
End Sub
Но чтобы его оформить полностью, затыкать все варианты ошибок, сделать связь с каким-то файлом данных, или базой, или екзельным листом. Сделать интерфейс и все такое - нужно время и главное ТЗ. Чего откуда куда и все такое.

Поэтому если нужен такой скрипт и найти не можете и сами не можете написать - вот на той площадке создавайте тему и начнем.