Разделяемые запятыми значения в MsgBox для собственных строк?

Question

У меня есть простая проблема, для которой я не могу найти решение. Я могу получить значения в MsgBox в своем коде в Excel, например: aaaaaaaa, bbbbbbbb, cccccccc, dddddddd etc. Я хотел бы получить значения из этого MsgBox, разделенные запятыми, в ячейки, начиная, например, с C15, C16, C17, C18 etc., следующим образом:

C15: aaaaaaaa
C16: bbbbbbbb
C17: cccccccc
C18: dddddddd
C19: etc.

Я не могу найти решение своей проблемы, хотя в течение нескольких часов я пытался найти ответ в Google. Вся помощь оценена!

Sub ComSepList()
Dim lr As Long, rng As Range, c As Range, fLoc As Range
Dim fAdr As String, rngOut As Range
Dim xArr() As String
Dim tttt As String

lr = Cells(Rows.Count, 2).End(xlUp).Row
Set rngOut = Range("C15")
Set rng = Range("B2:B" & lr)
    For Each c In rng
    'MsgBox c


Set fLoc = Range("A:A").Find(c.Value, , xlValues)
        If Not fLoc Is Nothing Then
            fAdr = fLoc.Address
            Do
                If fLoc.Offset(0, 6) = "1" Then
                    c.Offset(0, 4) = c.Offset(0, 4).Value & fLoc.Offset(0, 7).Value & ", "
                End If


fLoc.Value = c.Value
                Set fLoc = Range("A:A").FindNext(fLoc)
            Loop While fAdr <> fLoc.Address
            tttt = Left(c.Offset(0, 4).Value, Len(c.Offset(0, 4).Value) - 1)
        End If


    'Columns("F").AutoFit
    Next
    MsgBox tttt
    rngOut.Resize(UBound(Split(tttt.Text, ","))).Value = Application.Transpose(Split(tttt.Text, ","))
End Sub

Answer 1

Sub kjlkjlkj()
    Dim t As String
    t = InputBox("String")

    ActiveSheet.Range("C15").Resize(UBound(Split(t, ",")) + 1).Value = _
        Application.Transpose(Application.Trim(Split(t, ",")))
End Sub