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