Set value for Real Number parameter? CREO 2.0 VB

Hi all,

I'm working on a parameter menu, which includes an real number parameter.

How do I set the parameter value of a real number parameter? I can't find it in the VB manual.

My current code:
            Dim session As pfcls.IpfcBaseSession = conn.Session

            Dim mdl As pfcls.IpfcModel

            Dim parameter As pfcls.IpfcParameter

            Dim pvalue As pfcls.IpfcParamValue

            mdl = session.CurrentModel

            parameter = mdl.GetParam("MP_DENSITY")

            pvalue = (New CMpfcModelItem).CreateStringParamValue(CB_DENSITY.Text)

            CType(parameter, pfcls.IpfcBaseParameter).Value = pvalue

I believe the red marked part needs to be changed, but no idea what should be used instead.

Thanks in advance!