Как сделать, что в VB6 при нажатии команды выдавало ошибку при вводе одинакового значения

Private Sub Command4_Click()
 
Dim MyFile As Long
Dim fil$, arr, tx, i
fil = "C:\OpenServer\x\x\index.html"
        If Len(Dir(fil)) = 0 Then
                Open fil For Output As 1
                For i = 1 To Val(Label19) + 120
                    Print #1, ""
                Next i
                Print #1, "<section id="003" > <div class=""
                Close #1
        Else
                arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(fil$).OpenasTextStream(1).ReadAll, vbNewLine)
                 Open fil For Output As 1
                    If UBound(arr) > Val(Label19) + 119 Then
                           For i = 0 To UBound(arr)
                           Debug.Print i + 1, arr(i)
                                  Print #1, arr(i)
                                  If i = Val(Label19) + 119 Then Print #1, "<section id="003" > <div class=""
                           Next i
                    Else
                           For i = 0 To UBound(arr) - 1
                                  Print #1, arr(i)
                           Next i
                           
                           For i = UBound(arr) To Val(Label19) + 119
                               Print #1, ""
                           Next i
                           
                           Print #1, "<section id="003" > <div class=""
                    End If
                 Close #1
        End If
End Sub