here is a little code i threw up, shows you start with a string then add's data to it. hope this is what you were looking for
Function Dates()
Dim strDay As String, iCount As Integer
strDay = "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday ,Sunday"
strDates = Split(strDay, ",")
For iCount = LBound(strDates) To UBound(strDates)
strDates(iCount) = strDates(iCount) & " Index (" & iCount & ")" & vbNewLine
MsgBox strDates(iCount)
Next iCount
End Function