Public Function returnScriptingObj1() As Object 

    Dim tot As Object
    
    Dim debugFile As Integer
    debugFile = FreeFile
    Open "d:\debug1.txt" For Output As #debugFile
    
    Print #debugFile, "TEST"
    Set tot = CreateObject("Scripting.Dictionary") 
    
    tot.Add "tom", "daddy" 
    tot.Add "Ginger", "mommy" 
    tot.Add "Caroline", "kiddy" 
    
    Close #debugFile 
    
    Set returnScriptingObj1 = tot 
    'returnScriptingObj1 = tot 
End Function

##</code><code>##

my $newObj = Win32::OLE->new("TestArray.PArray");
my $resultsArray; #= Variant(VT_BYREF, Variant(VT_EMPTY));
$resultsArray = $newObj->returnScriptingObj1();
print Dumper($resultsArray);<br>

##</code><code>##

$VAR1 = bless( {
                 'Item' => undef,
                 'Count' => 3,
                 'CompareMode' => 0
               }, 'Win32::OLE' );