[CONNECT VBA] Text color

I am unable to set override text color in VBA. Same code works in v8i but not in CONNECT. Text is placed white(maybe related to defect 278792?)

   Dim teP As TextElement
   Dim lvP As Level
   Dim txsp As TextStyle
   Dim ls As LineStyle

    Set teP = CreateTextElement1(Nothing, " ", Point3dZero, Matrix3dIdentity)

Set txsp = ActiveDesignFile.TextStyles.Find("Tahoma_03_LT")
txsp.UsesColor = False
Set ls = ActiveDesignFile.LineStyles("0")

Set lvP = ActiveDesignFile.Levels("Default)
teP.TextStyle = txsp
teP.Level = lvP
      teP.Color = 4
      teP.LineWeight = 0
      teP.LineStyle = ls
      teP.TextStyle = txsp


Result: TeP.color is still 0 and not 4