sub UseScriptControl {
        my ($self, $text) = @_;
        my $script = Win32::OLE->new('ScriptControl');
        $script->{Language} = 'VBScript';
        $script->AddCode($text);
        my $obj = $script->Run('GetTestClass');
    
        $obj->Xyz();
    }