将块属性转发到公式中

Question

我正在尝试在公式或过程中使用来自Autocad的某些块属性的TextString，但不知道如何定义它？确切地说，我想在过程中使用att（I）.TextString，包括所有如果格式化的过程，但是无论我是使用String变量还是Variant变量创建过程，它都无法正常工作

att(I).TextString = Cells(rowNum, 23)
setScale att(I).TextString
Sub setScale(text As String)
If Len(text) > 43 Then
 text.ScaleFactor = 0.4
ElseIf Len(text) > 30 Then
 text.ScaleFactor = 0.5
ElseIf Len(text) > 21 Then
 text.ScaleFactor = 0.6
End If
End Sub

错误“无效的限定词”