Как выделить объекты, выделить из них текстовые, весь текст переписать в текстовый файл???

Public Sub Get_Text()
    Dim ss As AutoCAD.AcadSelectionSet
    Dim gpcode(0) As Integer
    Dim dataValue(0) As Variant
    gpcode(0) = 0
    dataValue(0) = "TEXT" ' Это для dtext. Для mtext соответственно должно быть fd(0) = "MTEXT"
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpcode
    dataCode = dataValue
    Set ss = ThisDrawing.SelectionSets.Add("ss")
    ss.Select acSelectionSetAll, , , groupCode, dataCode ' выбираем все text-ы с чертежа
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set file = fs.CreateTextFile("c:\file.txt", True) ' Открываем файл. Если не ошибаюсь здесь может быть fs.OpenTextFile(...)
    Dim text As AutoCAD.AcadText
    Dim i As Integer
    i = 0
    For Each text In ss
        Set text = ss.Item(i)
        file.WriteLine (text.TextString)
    Next
    ss.Delete
End Sub