Как результат работы split сохранить построчно в файл? - VBA

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

ребят как это сохранить построчно в файл

Dim s() As String, str As String, b As Integer, c As String
str = "1,2,3,4,5,6,7,8,9"
s() = Split(str, ",")

Решение задачи: «Как результат работы split сохранить построчно в файл?»

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

                            Private Sub Testv4()
    Dim strText As String, strArr() As String
    Dim intCount As Integer ', intPos As Integer
    
    strText = "1,2 2,3,4,5,6,7 77,8,9"
    strText = strText & "," & String(10, "-")
    
    strArr = Split(strText, ",")
    
    If UBound(strArr) >= 4 Then _
    strArr(4) = strArr(4) & "," & String(10, "-")
    
    Open "C:\2.txt" For Output As #1
         Print #1, Replace(Join(strArr, ","), ",", vbNewLine)
    Close #1
End Sub
                        