Try
            Dim sb As New System.Text.StringBuilder
            For Each zeile As String In System.IO.File.ReadAllLines( _
              "c:\testQuell.txt")
                sb.AppendLine(zeile.Substring(22))
            Next
            System.IO.File.WriteAllText("c:\testZiel.txt", sb.ToString)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try