use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const "Microsoft Excel";
use Win32::OLE::Const "Microsoft Visual Basic for Applications Extensibility";


my $xls = Win32::OLE->new('Excel.Application');
$xls->{Visible} = -1;
my $wb = $xls->Workbooks->Add;
my $mod = $wb->VBProject->VBComponents->Add(1);
$mod->{Name}="NewMod";
$mod->CodeModule->AddFromString ( <<MODTEXT);
Sub Message
    dim s as string
    s = "Hello, World"
    MsgBox s
End Sub
MODTEXT

my $sheet = $xls->Sheets('Sheet1');
my $button = $sheet->Buttons->Add(71.25, 18.75, 88.5, 57);
$button->{OnAction} = 'Message';