Dim sr as new system.io.streamreader("c:\test.csv")
Dim strLine as string = sr.readline
Dim sw as new system.io.streamwriter("c:\test_withnewcolumn.csv")
Dim strLine_Extra as string
'set yourvalue = newColumnName for first pass if the first row contains column names
Dim yourValue as string = "NewColumnName"
Do until line is nothing
strLine_Extra = strLine & "," & yourvalue
sw.writeline(strLine_Extra)
line = sr.readline
'assign value to the new column after each pass
yourvalue = ""
Loop