求单行文本左中对齐旋转的函数？

hehao

'创建一定角度(弧度)的单行文字
Public Function AddTextHA(ByVal text As String, ByVal ptinsert As Variant, _
    ByVal height As Double, ByVal angle As Double) As AcadText
    Dim objText As AcadText
  
    Set objText = ThisDrawing.ModelSpace.AddText(text, ptinsert, height)
    objText.Rotate ptinsert, angle
    objText.Update
   
    Set AddTextHA = objText
    objText.color = 3
End Function

大家帮我改改，单行文字默认是左下角对齐，在该函数里加左中对齐的命令，我需要单行文字左边中间与点对齐？