利用vba向CAD中添加的文字时如何旋转

vba中 ThisDrawing.ModelSpace.AddText 添加的文字如何旋转
加了一些文字以后，如何实现文字的旋转90？用什么命令啊，

比如我插入了一些文字
     Dim wenzi2(0 To 2) As Double
      Dim b As String
      b = excelSheet.Cells(7 + x, 6).Value & "方向"
  wenzi2(0) = 654
   wenzi2(1) = 150 - (x - 1) * 190
ThisDrawing.ModelSpace.AddText b, wenzi2, 2.5
如何实现文字串b的旋转

Public Sub a()
Dim objText As AcadText, p As Variant
p = ThisDrawing.Utility.GetPoint(, "请插入点：")
Set objText = ThisDrawing.ModelSpace.AddText("slkdfjskdfj", p, 5)
objText.Rotate objText.InsertionPoint, 45
End Sub