处理txt文本中的黑格，因为文件大于50M内存溢出怎么解决？

Question

Open V For Binary As #1
  M = Space(LOF(1))
  Get #1, , M
  Close #1
  
   M = Replace(M, vbCrLf, vbLf)           '将   回车符+换行符   替换成   换行符，防止误操作
   M = Replace(M, vbCr, vbLf)           '将   回车符   替换成   换行符
   M = Replace(M, vbLf, vbCrLf)           '将   换行符   替换成   回车符+换行符
  
  Kill V
  Open V For Binary As #1
  Put #1, , M
  Close #1我用上面程序将txt文件中黑格处理掉，但是当txt文件大于50M时就会内存溢出，谁有好办法解决

Answer 1

二进制分段处理。M = Space(1024)

Answer 2

M = Space(LOF(1))
中字符串溢出，我分段处理这段代码得怎么修改呢？求教！！！