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

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, ",")

Private Sub Test()
    Dim strText As String, strArr() As String, intCount As Integer
    strText = "1,2,3,4,5,6,7,8,9"
    strArr = Split(strText, ",")
    
    Open "C:\1.txt" For Output As #1
         For intCount = 0 To UBound(strArr)
             Print #1, strArr(intCount)
         Next
    Close #1
End Sub

Private Sub Testv2()
    Dim strText As String
    strText = "1,2,3,4,5,6,7,8,9"
    
    Open "C:\2.txt" For Output As #1
         Print #1, Replace(strText, ",", vbNewLine)
    Close #1
End Sub

Private Sub Test()
    Dim strText As String, strArr() As String, intCount As Integer
    strText = "1,2,3,4,5,6,7,8,9"
    strArr = Split(strText, ",")
    
    Open "C:\1.txt" For Output As #1
         For intCount = 0 To UBound(strArr)
             Print #1, strArr(intCount)
             If intCount = 4 Then Print #1, String(10, "-")
         Next
    Close #1
End Sub

Print #1, String(10, "-")

Close #1

Private Sub Testv4()
    Dim strText As String, strArr() As String
    Dim intCount As Integer, intPos As Integer
    
    strText = "1,2 22,3,4,5,6,7 7,8,9"
    
    intPos = InStrRev(strText, " ")
    If intPos > 0 Then
       intPos = InStr(intPos, strText & ",", ",")
       strText = Left(strText, intPos - 1) & _
       "," & String(10, "-") & Mid(strText, intPos)
    Else
       strText = strText & "," & String(10, "-")
    End If
    
    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

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

rivate 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