Получить строку из ячейки Превратить в две строки - добавить результат в массив

Привет я хотел бы знать, как я могу захватить одну строку и разбить ее на две разные строки.

Ячейка А1 имеет:

Cat
Dog 

В той же ячейке с помощью Alt + Enter

Я пытаюсь создать массив большего размера, чем мой пример.

Было бы:

arr(0) = Cat
arr(1) = Dog

Sub CatchTwoString()

Range("A1").Select

Dim myString As String
Dim arr() As Variant

myString = Selection.Text

ReDim arr(0)

arr(0) = myString

MsgBox arr(0)


End Sub

Используйте Split и split для возврата каретки:

Sub CatchTwoString()

Dim strarr() As String
strarr = Split(ActiveSheet.Range("A1").Value, Chr(10))

Dim i As Long
For i = LBound(strarr) To UBound(strarr)
    MsgBox strarr(i)
Next i

End Sub