【ExcelVBA】テキストにある文章を一つのセルに入れていくには

Public Sub テキストエディタにある文章を一つのセルに入れていく()

    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Dim file As Object
    Const cstPath As String = "C:\test\20230131\テスト用メモ帳.txt"
    Set file = FSO.GetFile(cstPath).OpenAsTextStream
    
    Dim stBuf As String
    stBuf = file.ReadAll
    
    file.Close
    Set FSO = Nothing
    set file = Nothing

    Const cstDel As String = "ーーーーー"
    Dim vBuf As Variant
    Dim lRowCnt As Long
    
    With ThisWorkbook.Worksheets(1)
        vBuf = Split(stBuf, cstDel)
        lRowCnt = UBound(vBuf)
        .Cells(2, 10).Resize(2 + lRowCnt - 1, 1).Value = WorksheetFunction.Transpose(vBuf)
    End With
End Sub

Public Sub テキストボックスにある文章を一つのセルに入れていく()
    Dim shp As Object
    Const cstName As String = "TextBox"
    Dim stBuf As String
    Const cstDel As String = "ーーーーー"
    Dim vBuf As Variant
    Dim lRowCnt As Long
    With ThisWorkbook.Worksheets(1)
        For Each shp In .Shapes
            If Left(TypeName(shp.DrawingObject), Len(cstName)) = cstName Then
                stBuf = shp.TextFrame.Characters.Text
                vBuf = Split(stBuf, cstDel)
                lRowCnt = UBound(vBuf)
                .Cells(2, 10).Resize(2 + lRowCnt - 1, 1).Value = WorksheetFunction.Transpose(vBuf)
                Exit For
            End If
        Next shp
    End With
End Sub