Вставка результата

Подскажите пожайлуста как вставить полученный результат в TextBox1, а не в MsgBox???
Sub SelectBlocksInModel()
     Dim ss As AcadSelectionSet
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$Blocks$")
     End With
     Dim ftype(2) As Integer
     Dim fdata(2) As Variant
     ftype(0) = 0: ftype(1) = 2: ftype(2) = 67
     fdata(0) = "INSERT": fdata(1) = "1": fdata(2) = 0 '<--"1" это имя блока
     ss.Select acSelectionSetAll, , , ftype, fdata
     MsgBox ss.Count
     ss.Delete
End Sub