Dim txt As String:    txt = App.Path & "\пример файла.txt"
    
    Dim r_symb As String
    Dim r_Size As Long
    Dim r_Free As Integer:    r_Free = FreeFile
    
    Open txt For Binary Access Read As #r_Free
    
        r_Size = LOF(r_Free)
        r_symb = Space(r_Size)
        Get #r_Free, , r_symb
    
    Close #r_Free
    
    Debug.Print r_symb

    Dim Signature As String:    Signature = "подпись " & Chr( 13 ) & Chr( 10 ) & "и переход"

    Dim txt As String:          txt = App.Path & "\пример файла.txt"
    
    Dim r_symb As String
    Dim r_Size As Long
    Dim r_Free As Integer:    r_Free = FreeFile
    
    Open txt For Binary Access Read As #r_Free
    
        r_Size = LOF(r_Free)
        r_symb = Space(r_Size)
        Get #r_Free, , r_symb
    
    Close #r_Free
    
    r_symb = Replace(r_symb, Signature, " ", , , vbBinaryCompare)
    
    Open txt & "~" For Binary Access Write As #r_Free
    Put #r_Free, , r_symb
    Close #r_Free