VB提高修改保存大容量TXT文件的运行时间问题

我要对一个数据约3千行,每行约5千个字符的TXT文件进行修改, 
基本上在一个excel文件里读取一些数字,根据数字对每一行对应的一段长度的位置修改并把整行保存到另一文件,但我发现程序运行的非常慢,甚至死机, 
请问有什么好的算法来提高运行效率?

我的算法部分代码: 
Public Sub RepositionSlave(ByRef ws As Worksheet, ByVal limit As Long) 
Dim inFileText As String 
Dim outFileText As String 
Dim inFileNo As Integer 
Dim outFileNo As Integer 
Dim inputfile As String 
Dim outputfile As String 
Dim OldPos As Long 
Dim NewPos As Long 
Dim length As Long 
Dim i As Long 
Dim writtenline As Long 

outFileText = Space(limit) 

inputfile = SlaveAsc 
outputfile = ThisWorkbook.Path & "\" & OutputSlaveAsc 

inFileNo = FreeFile 
Open inputfile For Input As #inFileNo 
outFileNo = FreeFile 
Open outputfile For Output As #outFileNo 

Do While Not EOF(inFileNo) 
Line Input #inFileNo, inFileText 
i = 2 
While SlaveSheet.Cells(i, 2) <> "" 
If SlaveSheet.Cells(i, 2) <> SlaveSheet.Cells(i - 1, 2) Then 
OldPos = SlaveSheet.Cells(i, 3) 
length = SlaveSheet.Cells(i, 4) - SlaveSheet.Cells(i, 3) + 1 
NewPos = FindNewPos(SlaveSheet.Cells(i, 2)) 
'If NewPos <> -1 Then 'acc 
Call ReplaceSpace(outFileText, NewPos, Mid(inFileText, OldPos, length)) 
'Mid(outFileText, NewPos, length) = Mid(inFileText, OldPos, length) 
'End If 'acc 
End If 
i = i + 1 
Wend 

Print #outFileNo, outFileText 
'writtenline = writtenline + 1 
Loop 

Close #inFileNo 
Close #outFileNo 
End Sub

还有一条函数老是不给我发

Public Sub ReplaceSpace(ByRef mainstr As String, ByVal location As Long, ByVal substr As String) 
Dim i As Integer 
i = Len(substr) 
mainstr = Left(mainstr, location - 1) & substr & Right(mainstr, Len(mainstr) - location - i + 1) 
End Sub