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()