Dim sr As StreamReader = New StreamReader(C:\test.txt)
Dim sw As Streamwriter = New StreamWriter(C:\testout.txt)
Dim line As String
Dim field() As String
Dim name() As String
Dim land() As String
Dim zusatz() As String
 
Do
line = sr.Readline()
field = Split(line, ",")
name = field(0)
land = field(2)
zusatz = field(3)
Loop Until Line Is Nothing
sw.Writeline(field)
sw.Write(name)
sw.Write(land)
sw.Write(zusatz)
sr.Close()
sw.Close()