I am fairly new at vb programming, so forgive me if I am missing something obvious.  Below is a piece of program I am writing to create a macro.  I need to put the variable BR into the parametric equation (CreateEquationSpline2). I would like to multiply BR by the existing equation I have.

This is the equation works fine.......

Dim BR
Set BR = (CDec((PD / 2) * (Cos(Transverse_PA))))

Dim r1 As Double
Dim r2 As Double
Dim rad As Boolean
Dim ang As Double
Dim xOff As Double, yOff As Double
Dim LockStart As Boolean, LockEnd As Boolean
Dim skSegment As SketchSegment
Set swModel = swApp.ActiveDoc

Set skSegment = swModel.SketchManager.CreateEquationSpline2("cos(t)", "sin(t)", "", "0", ".5", False, 0, 0, 0, True, True)

This is what I tried doing and nothing happened......

Set skSegment = swModel.SketchManager.CreateEquationSpline2("cos(t)*BR", "sin(t)*BR", "", "0", ".5", False, 0, 0, 0, True, True)