You accessing array with this way..
How about if you have many words separated with commas?
Are you want to get all data by write it one by one?
Use looping and Ubound to get last index of array
Private Sub Command1_Click()
Dim temp As Variant
Dim str As String
Dim arr As String
str = "i,love,you,forever"
temp = Split(str, ",")
For i = 0 To UBound(temp) ' get the last index with Ubound
arr = arr + temp(i) + vbCrLf ' Read data until last index and store it on arr
MsgBox arr ' display it on message box