CODE --> vb.net

Dim asynconn As New pfcls.CCpfcAsyncConnection

        Dim session As pfcls.IpfcBaseSession

        Dim Parametro As IpfcBaseParameter
        Dim ParamValue As IpfcParamValue
        Dim pobj As IpfcModel 'As IpfcModelItem

        Dim sel As IpfcSelections
        Dim selopt As IpfcSelectionOptions

        Dim comprimento As Double = 0.0

        Dim Descricao As String = ""
        Dim Mitem As CMpfcModelItem
        Dim pv1 As IpfcParamValue




        conn = asynconn.Connect("", "", ".", 5)
        session = conn.Session

        'model = session.CurrentModel
        model = session.GetActiveModel
        window = session.CurrentWindow

        'mdlname = session.CurrentModel.FileName
        mdlname = session.GetActiveModel.FileName

        Work_dir = session.GetCurrentDirectory


      
        selopt = (New CCpfcSelectionOptions).Create("part")


        selopt.MaxNumSels = 1

        sel = session.Select(selopt, Nothing)

        'pobj = sel.Item(0).SelItem
        pobj = sel.Item(0).SelModel

        Dim aa = pobj.FullName
        ' pobj.DisplayInNewWindow()

        'Dim_Y
        Parametro = pobj.GetParam("DIM_Y")

        ParamValue = Parametro.Value


        comprimento = ParamValue.DoubleValue

        MsgBox(comprimento)

        Mitem = New CMpfcModelItem
        'pv1 = Mitem.CreateDoubleParamValue(CDbl(22222.0))
        pv1 = Mitem.CreateDoubleParamValue((33333.0))
        Parametro.Value = pv1

        'Descricao_POR


        Parametro = pobj.GetParam("DESCRICAO_POR")

        ParamValue = Parametro.Value


        Descricao = ParamValue.StringValue

        MsgBox(Descricao)

        Mitem = New CMpfcModelItem
        Dim TEXTO As String = "AAAA"
        pv1 = Mitem.CreateStringParamValue(TEXTO)

        Parametro.Value = pv1 'HERE IS THE ERROR






        conn.Disconnect(1)

        Me.Close()

    End Sub