If (ii1 > ii2) Then Compare = True GoTo Exit_ElseIf (ii1 = ii2) Then ' поблочное сравнение строк For i = 1 To ii1