読み込み

Sub read()
    Dim buf As String
    Open "D:test_data.csv" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            Debug.Print "value=" & buf
        Loop
    Close #1
End Sub

書き込み

Sub write()
    Dim buf As String
    Open "D:out.csv" For Output As #1
        Print #1, "test1"
        Print #1, "test2"
    Close #1
End Sub