如果“原文件”的首行和末行都没有“指定字符”的话，将原文件改存为“新文件”。否则给出提示。原文件、新文件和指定字符都作为常量放在开始，便于修改。但没有预留检查行修改的设置。

Const 原文件 = "C：/1.txt"
Const 新文件 = "E：/1.txt "
Const 指定字符 = "1"

Private Sub Command1_Click()
    Dim 需要保存 As Boolean
    Dim 行内容 As String
    需要保存 = True
    Open 原文件 For Input As #1
        Line Input #1, 行内容
        需要保存 = InStr(字符串, 指定字符)
        If Not 需要不存 Then
            Close #1
            GoTo 处理
        End If
        On Error GoTo 结束
        Do
            Line Input #1, 行内容
        Loop
结束:
    Close #1
    需要保存 = InStr(字符串, 指定字符)
处理:
    If 需要保存 Then
        Open 原文件 For Input As #1
        Open 新文件 For Output As #2
            On Error GoTo 关闭
            Do
                Line Input #1, 行内容
                Print #2, 行内容
            Loop
关闭:
        Close #1
        Close #2
    else
        msgbox "文件里包含了指定字符，我就不保存了。"
    End If
End Sub

C：/1.txt 
  内容 1
       2
       3
       4

 一个TEXT和COMAND
在TEXT1里面输入1或者其他数字 单击COMAND1就保存 保存时候看C:/1.TXT里面是否有TEXT1面得字符·有就不保存没有就保存