Limit tolerance from excel

Currently I am using the below code to update the model based on the value entered in the excel.

I need to add the tolerance value which is available in the next call. Tolerance as a Limit one

Code which I used to update dimension,

Set Swapp = Createobject("Sldworks.application")

Set part = Swapp.Activedoc

OD = Thisworkbook.worksheets("Sheet1").Range("B2").value

Len = Thisworkbook.worksheets("Sheet1").Range("C2").value

OD_Tol = Thisworkbook.worksheets("Sheet1").Range("B3").value

Len_Tol = Thisworkbook.worksheets("Sheet1").Range("C3").value

Dbldiameter1 =Cdbl(OD*(25.4/1000))

Dbllength1 = Cdbl(Len*(25.4/1000)

Part.parameter("D1@Sketch1).system value =Dbldiameter1

Part.parameter("D2@Sketch1).system=Dbllength1

Can anyone help me on this to include the tolerance value (Limit tolerance)

SolidworksApi/macros