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