Código:
Public oSW As New StreamWriter("\archivo.csv")
For Each Me.oLine In oTexto
oSW.WriteLine(oLine)
For Each Me.recibeLinea In recibeArray
If (oLine = recibeLinea) Then
inline = oLine & codDepto
oSW.WriteLine(inline)
End If
Next
Next
MsgBox("Departamento guardado")
oSW.Close()

yo hago lo mismo


