Private Sub EditTextFile(ByVal sourceFile As String, ByVal saveFile As _
      String)
        If Not IO.File.Exists(sourceFile) Then Return
        Dim sb As New System.Text.StringBuilder
        Dim columns() As String
        For Each line As String In IO.File.ReadAllLines(sourceFile)
            columns = line.Split(";")
            ' Prüfen ob die Zeile gültig ist (Anzahl der Spalten)
            If columns.Length <> 10 Then Continue For
 
            ' -2 = vorletzte Spalte, da Array null-basiert
            If columns(columns.Length - 2).Trim.Length = 0 Then
                columns(columns.Length - 2) = "999999999"
                line = String.Join(";", columns)
            End If
 
            sb.AppendLine(line)
        Next
 
        IO.File.WriteAllText(saveFile, sb.ToString)
    End Sub