一个文本a.txt，内容为：
No： 1

No： 2

No： 3

.
.
.
.
No: 10


我想在一个文本框里输入一个数字（原有数字），在另一个文本里输入另一个数字（新数字），按了按钮后，文本里的原有数字变成新数字。

我的程序是：

Dim FileNumber1, FileNumber2, Str As String
     FileNumber1 = FreeFile  
     Open (Dir1.Path & "\" & File1.Filename) For Input As #FileNumber1 
     FileNumber2 = FreeFile
     Open Dir1.Path & "\" & "~tmp.txt" For Output As #FileNumber2    
   While Not EOF(1) '
     Line Input #FileNumber1, Str  
     Str = Replace(Str, "No: " & Text1.Text, "No: " & Text2.Text) 
     Print #FileNumber2, Str 
   Wend
     Close #FileNumber1 
     Close #FileNumber2 
     
Kill (Dir1.Path & "\" & File1.Filename)                      
Name Dir1.Path & "\" & "~tmp.txt" As File1.Filename   

但我遇到一个问题，假如我在Text1里输入1，在Text2里输入7，这样运行后，的确NO： 1变成No： 7了，但No： 10也变成No： 70了，怎么解决呢？

不要直接用 Replace 命令

要求按我前面的代码按顺序写进去。
要么你详细比较后，再保存进去。

这样替换的话，那你不要一行一行的读，一次性读入，
然后替换时，把 VBCRLF 字符也加进去进行查找 替换 。