NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
  Mustermann;Musterstraße _
  14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"0130000000" & _
  "000;01300000000001;01300000000002;01300000000003";P195807;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"0;01300000000001;01300000000002;01300000000003";P195808;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"0;01300000000001;01300000000002;01300000000003";P195809;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"0;01300000000001;01300000000002;01300000000003";P195810;02.10.2017 09:46

"01300000000000;01300000000001;01300000000002;01300000000003"

NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
  Mustermann;Musterstraße _
  14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"0130000000" & _
  "000";P195807;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"1";P195808;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"2";P195809;02.10.2017 09:46
NP;0.0000;;;;;;;;;;;A835555;A835555;Musterstraße 14;;;Max _
Mustermann;Musterstraße _
14;;DE;123456;Musterhausen;;;test@tester.de;www.panorama24.eu;;;;"013000000000" & _
"3";P195810;02.10.2017 09:46

Imports System.IO
Imports System.Text

Private Sub FixCSV(ByVal path As String)
    Using tfp As Microsoft.VisualBasic.FileIO.TextFieldParser = New _
      Microsoft.VisualBasic.FileIO.TextFieldParser(path, Encoding.Default)
        tfp.SetDelimiters(";")
        Using sw As StreamWriter = New StreamWriter(path.Replace(".csv", _
          "_new.csv"), False, Encoding.Default)
            Dim i As Integer = 0
            Dim Zeile As String = ""
            Do
                Dim fields As String() = tfp.ReadFields
                If fields Is Nothing Then Exit Do
                For x As Integer = 0 To fields.Length - 1
                    If x = 30 Then
                        Zeile = String.Join(";"c, {Zeile, fields(x).Split(";"c)( _
                          i)})
                    Else
                        Zeile = String.Join(";"c, {Zeile, fields(x)})
                    End If
                Next
                sw.WriteLine(Zeile.Substring(1))
                Zeile = ""
                i += 1
            Loop
        End Using
    End Using
End Sub

Imports System.IO
Imports System.Text
 
Public Class Form1
    Private watcher As New FileSystemWatcher()
 
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Watch for changes in LastAccess and LastWrite times, and the renaming 
        ' of files or directories. 
        watcher.NotifyFilter = (NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or NotifyFilters.FileName Or _
          NotifyFilters.DirectoryName)
        ' Only watch csv files.
        watcher.Filter = "*.csv"
 
        ' Add event handlers.
        AddHandler watcher.Changed, AddressOf OnChanged
        AddHandler watcher.Created, AddressOf OnChanged
 
        btnStop.Enabled = False
        tbExport.ReadOnly = True
        tbImport.ReadOnly = True
 
    End Sub
 
    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles _
      btnStart.Click
        If Directory.Exists(tbImport.Text) And Directory.Exists(tbExport.Text) _
        Then
            watcher.Path = tbImport.Text
            ' Begin watching.
            watcher.EnableRaisingEvents = True
            btnStart.Enabled = False
            btnStop.Enabled = True
        Else
            MessageBox.Show("Bitte beide Pfade angeben", Me.Text, _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles _
      btnStop.Click
        ' Stop watching.
        watcher.EnableRaisingEvents = False
        btnStart.Enabled = True
        btnStop.Enabled = False
    End Sub
 
    Private Sub FixCSV(ByVal InputFilePath As String, ExportFilePath As String)
        Using tfp As Microsoft.VisualBasic.FileIO.TextFieldParser = New _
          Microsoft.VisualBasic.FileIO.TextFieldParser(InputFilePath, _
          Encoding.Default)
            tfp.SetDelimiters(";")
            Using sw As StreamWriter = New StreamWriter(ExportFilePath, False, _
              Encoding.Default)
                Dim i As Integer = 0
                Dim Zeile As String = ""
                Do
                    Dim fields As String() = tfp.ReadFields
                    If fields Is Nothing Then Exit Do
                    For x As Integer = 0 To fields.Length - 1
                        If x = 30 Then
                            Zeile = String.Join(";"c, {Zeile, fields(x).Split( _
                              ";"c)(i)})
                        Else
                            Zeile = String.Join(";"c, {Zeile, fields(x)})
                        End If
                    Next
                    sw.WriteLine(Zeile.Substring(1))
                    Zeile = ""
                    i += 1
                Loop
            End Using
        End Using
    End Sub
 
    Private Sub OnChanged(source As Object, e As FileSystemEventArgs)
        ' Specify what is done when a file is changed or created.
        Dim exportFilePath As String = IO.Path.Combine(tbExport.Text, _
          IO.Path.GetFileName(e.FullPath))
        FixCSV(e.FullPath, exportFilePath)
    End Sub
 
    Private Sub llbImport_LinkClicked(sender As Object, e As _
      LinkLabelLinkClickedEventArgs) Handles llbImport.LinkClicked
        Dim dialog As New FolderBrowserDialog()
        If tbImport.Text <> "" Then dialog.SelectedPath = tbImport.Text
        If DialogResult.OK = dialog.ShowDialog() Then
            tbImport.Text = dialog.SelectedPath
            My.Settings.ImportPfad = tbImport.Text
            My.Settings.Save()
        End If
    End Sub
 
    Private Sub llbExport_LinkClicked(sender As Object, e As _
      LinkLabelLinkClickedEventArgs) Handles llbExport.LinkClicked
        Dim dialog As New FolderBrowserDialog()
        If tbExport.Text <> "" Then dialog.SelectedPath = tbExport.Text
        If DialogResult.OK = dialog.ShowDialog() Then
            tbExport.Text = dialog.SelectedPath
            My.Settings.ExportPfad = tbExport.Text
            My.Settings.Save()
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        tbExport.Text = My.Settings.ExportPfad
        tbImport.Text = My.Settings.ImportPfad
    End Sub
End Class

Private watcher As New FileSystemWatcher()
 
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Watch for changes in LastAccess and LastWrite times, and the renaming 
        ' of files or directories. 
        watcher.NotifyFilter = (NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or NotifyFilters.FileName Or _
          NotifyFilters.DirectoryName)
        ' Only watch csv files.
        'watcher.Filter = "*.csv"
        watcher.Filter = "*.*"
        ' Add event handlers.
        AddHandler watcher.Changed, AddressOf OnChanged
        ' AddHandler watcher.Created, AddressOf OnChanged
 
        btnStop.Enabled = False
        tbExport.ReadOnly = True
        tbImport.ReadOnly = True
 
    End Sub

EALA FREYA FRESENA