Переход на следующую строку - VB

Формулировка задачи:

в переменную занесён текст, при выводе этой переменной через msgbox выводит текст в три строки:
текст1
текст2
текст3
Как можно занести в отдельные переменные текст каждой строки?

Решение задачи: «Переход на следующую строку»

textual
                            Листинг программы 
                        

                            Dim text As String
Dim arr() As String
Dim str1 As String, str2 As String, str3 As String, 
text = "текст1" & vbNewLine & "текст2" & vbNewLine & "текст3"
arr = Split(text, vbNewLine)
If (UBound(arr) - LBound(arr) + 1) < 3 Then
  MsgBox "В тексте меньше трех строк"
  End
End If
str1 = arr(LBound(arr))
str2 = arr(LBound(arr)+1)
str3 = arr(LBound(arr)+2)
Debug.Print "str1 = " & str1
Debug.Print "str2 = " & str2
Debug.Print "str3 = " & str3

                        