Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim oFile: Set oFile = oFSO.GetFile(strPath)

    If IsNull(oFile) Then MsgBox ("File not found: " & strPath): Exit Function

    With oFile.OpenAsTextStream()
        readBinary = .Read(oFile.Size)
        .Close
    End With

          s_stream = readBinary(AFile_bz.Path)
          s_stream = "Start text " + s_stream + "End texy"
          With fso.createTextFile(s_new_file)
              .Write (s_stream)
              .Close
          End With