[oleg_marshinov]

код работает

Код:

[Выделить все]

Public Sub Test()
Dim acSelSet As AcadSelectionSet
Set acSelSet = ThisDrawing.SelectionSets.Add("rrr")
acSelSet.SelectOnScreen

myFunc acSelSet

ActiveDocument.SelectionSets("rrr").Delete
End Sub

Public Function myFunc(objSet As AcadSelectionSet) As Boolean
Dim strTxt As String
Dim objEnt As AcadEntity

For Each objEnt In objSet
  If TypeOf objEnt Is AcadText Or TypeOf objEnt Is AcadMText Then
    strTxt$ = objEnt.TextString
    
        'здесь мой код
        'здесь мой код
        'здесь мой код

    objEnt.TextString = strTxt
    objEnt.Update
  End If
Next
End Function

[Modis]

Я вот лично вижу не знак $ перед =, а переменную с именем strTxt$

[dyr]

Превращает значение в нужный формат.

[oleg_marshinov]

Сообщение от dyr Превращает значение в нужный формат.

, можно по каким-нибудь словам описание найти в инете ?

[Modis]

Первая ссылка в поиске google - http://stackoverflow.com/questions/1...h-in-vba-macro

[gomer]

Вообще-то это аттавизм из ранних бейсиков...

[dyr]

Сообщение от oleg_marshinov , можно по каким-нибудь словам описание найти в инете ?

Функция, например UCase, возвращает значение Variant. Со знаком $ возвращает значение типа String.

[oleg_marshinov]

Спасибо, все понял уже.
Благодарю за отклик.