Dim writer As IO.StreamWriter
        Dim code_path As String
        Dim encode As System.Text.Encoding
        encode = System.Text.Encoding.GetEncoding("Shift-JIS")
        code_path = "C:\Users\kojir\Documents\out_data.CSV"
        writer = New IO.StreamWriter(code_path, False, encode)
として、ここへ記入するようにしました。