文本操作　如何在查找到要的进行替换这一行的内容Sub load_next(oop1 As Boolean)

我做的这个只能查找

Sub load_next(oop1 As Boolean)
strLine = FreeFile
Open App.Path & "\aa.txt" For Input As #strLine
Line Input #1, strLine
Dim aa1 As String
Dim aa2 As String
Dim aa21 As String
Dim aa4 As Byte
Dim aa3 As Byte
Dim aa5 As Byte
Dim aa6 As Byte
aa4 = 0
aa3 = 1
strLine = Replace(strLine, vbTab, " ")
For i = 1 To Len(strLine) - 1
aa2 = Mid(strLine, i, 1)
aa6 = i + 1
aa21 = Mid(strLine, aa6, 1)
Text2.Text = aa21
If aa2 = " " And aa21 <> " " Then
map(aa4) = Trim(Mid(strLine, aa3, aa5))

if map(aa4) = "我要找的内空"　thwn 　　　　　我想在当前这行替换这行的内容
aa3 = i + 1
aa4 = aa4 + 1
aa5 = 0
End If
aa5 = aa5 + 1
Next
If oop1 = False Then
load_NAME
Text1.Text = strLine
End If
Close #strLine
End Sub

望高手指点指点