Exception from hresult 0xc0010009
===

I am using a script component in ssis 2005 with following code:

 Public Overrides Sub PostExecute()
        
        MyBase.PostExecute()
        
        mx = mx.ToString()
        mn = mn.ToString()
        Dim variableDispenser As VariableDispenser = CType(Me.VariableDispenser, VariableDispenser)
        
        Dim vars As IDTSVariables90 = Nothing
        variableDispenser.GetVariables(vars)

        
        vars("User::Max_VPD").Value = mx
        vars("User::Min_VPD").Value = mn
        System.Windows.Forms.MessageBox.Show(vars("User::Min_VPD").Value.ToString())
        


    End Sub

But I am getting an exception 0xC0010009 at
at Microsoft.SqlServer.Dts.Runtime.Wrapper.IDTSVariableDispenser90.GetVariables(IDTSVariables90& ppVariables)
   at ScriptComponent_7dfa979695624e8487f28dcbe00f0a6e.ScriptMain.PostExecute()
   at Microsoft.SqlServer.Dts.Pipeline.ScriptComponentHost.PostExecute()
Can someone please help me out here..Thanks in advance
