Удаление определённого количества символов каждой строки в текстовом файле

Option Explicit
 
'Скрипт удаления "C"-го кол-ва символов слева в каждой строке
'текстовых файлов с кодировкой Unicode
'Настроен на кодировку UCS-2 Little Endian (начальные байты &HFF &HFE)
Sub Main()
Dim VarByte, SrcFile$, outFile$, n&, sz&, C&, nC&, WRpos&, argv
 
argv = Parse_CMDLine(Command)
 
'Проверка аргументов
If TypeName(argv) = "Empty" Then Call Using
If UBound(argv) < 1 Then Call Using 'если задан только 1 аргумент (argv(0))
C = Int(Val(argv(0))) 'Кол-во удаляемых символов
If C < 1 Then Call Using
If Dir$(argv(1)) = "" Then MsgBox "Файл " & argv(1) & " не найден!": End
'Исходный файл
SrcFile = argv(1)
'Результирующий (могут совпадать)
If UBound(argv) = 1 Then 'если 2-й параметр не задан
    outFile = SrcFile
  Else
    outFile = argv(2)
End If
 
With CreateObject("ADODB.Stream")
    .Type = 1 'adTypeBinary
    .Open
    .LoadFromFile (SrcFile)
    sz = .Size
    VarByte = .Read(sz)
    .Close
    
    'Защита от неизвестного типа кодировки
    If VarByte(0) <> 255 Or VarByte(1) <> 254 Then
        If MsgBox("Кодировка файла отличается. Продолжаем?", vbYesNo) = vbNo Then Exit Sub
        On Error Resume Next
    End If
    
    WRpos = 2
    nC = C
    For n = 2 To sz - 1 Step 2
        If nC = 0 Then
            VarByte(WRpos) = VarByte(n)
            VarByte(WRpos + 1) = VarByte(n + 1)
            WRpos = WRpos + 2
          ElseIf VarByte(n) = 13 Then
            VarByte(WRpos) = 13
            VarByte(WRpos + 1) = 0
            VarByte(WRpos + 2) = 10
            VarByte(WRpos + 3) = 0
            WRpos = WRpos + 4
            n = n + 2
            nC = C
          Else
            nC = nC - 1
        End If
        If VarByte(n) = 10 Then nC = C
    Next n
    
    ReDim Preserve VarByte(WRpos - 1)
    .Open
    .Write VarByte
    .SaveToFile outFile, 2 '2 - перезаписать, если существует
    .Close
End With
End Sub
 
 
Function Parse_CMDLine(st$)
Dim Lex, nL&, nA&, Unit$
If Len(st) = 0 Then Exit Function
 
Lex = Split(st)
ReDim argv(0 To UBound(Lex))
 
Do While nL <= UBound(Lex)
    Unit = Lex(nL)
    If Len(Unit) = 0 Then GoTo nxt 'Защита от двойных пробелов между параметрами
    If Left$(Lex(nL), 1) = """" Then
        Do Until Right$(Lex(nL), 1) = """"
            nL = nL + 1
            If nL > UBound(Lex) Then Exit Do
            Unit = Unit & " " & Lex(nL)
        Loop
        Unit = Replace$(Unit, """", "")
    End If
    argv(nA) = Unit
    nA = nA + 1
nxt:
    nL = nL + 1
Loop
If nA = 0 Then Exit Function
ReDim Preserve argv(0 To nA - 1)
Parse_CMDLine = argv
End Function
 
 
Private Sub Using()
Dim Txt$
      Txt = "Утилита удаления указанного количества символов" + vbCrLf
Txt = Txt + "с левого края текстовых файлов с кодировкой Unicode" + vbCrLf
Txt = Txt + vbCrLf
Txt = Txt + App.EXEName + " [n] [FileName1] {FileName2}" + vbCrLf
Txt = Txt + vbCrLf
Txt = Txt + "[n] - Число отсекаемых символов" + vbCrLf
Txt = Txt + "[FileName1] - Имя обрабатываемого файла" + vbCrLf
Txt = Txt + "[FileName2] - Имя файла, куда записывается результат" + vbCrLf
Txt = Txt + vbCrLf
Txt = Txt + "FileName2 - необязательный параметр. Если опущен, то результат перезаписывается в исходный файл." + vbCrLf
Txt = Txt + vbCrLf
Txt = Txt + "Примеры использования:" + vbCrLf
Txt = Txt + App.EXEName + " 3 file1.txt" + vbCrLf
Txt = Txt + App.EXEName + " 3 ""file 1.txt"" file2.txt" + vbCrLf
Txt = Txt + App.EXEName + " 3 c:\temp\file1.txt ""c:\my folder\file2.txt"""
MsgBox Txt, vbOKOnly + vbInformation, "Использование"
End
End Sub