Set up a sub routine and pass in the textbox value. If you need more assistance please post the complete code your using.
Public Sub SetParameters()
' Get the active document. Assumes a part document is active.
Dim partDoc As PartDocument = ThisApplication.ActiveDocument
Dim oParam As Inventor.Parameter = partDoc.ComponentDefinition.Parameters.Item("Archo")
' Change the equation of the parameter with variable coming from text box.
oParam.Expression = txtformArcho ' "3.5 in"
' Update the document.
ThisApplication.ActiveDocument.Update
End Sub
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan