AutoCAD Inventor :: How To Add User Parameter (Text Value)

Parameters with a text value, How do I add userParameter? In iLogic 
 
Examples. DoubleValue)

Sub Main()    

Dim oCompDef As PartComponentDefinition
oComDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim oParams As Parameters
oParams = oComDef.Parameters
Dim uParams As UserParameters
uParams = oParams.UserParameters
strVal= uParams.AddByExpression!("strVal", 0.15, "mm")
iLogicVb.UpdateWhenDone = True
End Sub