Private Sub rab()
Dim a As Integer
Dim MyFile
Dim i As Integer
Dim tS As String
Dim S As String
MyFile = FreeFile
 

Open (Text1( 0 ).Text) For Input As #MyFile 'вычисляем имя файла которое записывается туда с помощью Common Microsoft Object

While Not EOF(MyFile)
Line Input #MyFile, tS
a = a +  1 
Wend
Close #MyFile


If x < a Then

Open (Text1( 0 ).Text) For Input As #MyFile
For i =  1  To a
Line Input #MyFile, tS
If i > x Then
Text2.Text = tS
soob (tS)' выводим сообщение
End If
Next i

End If

x = a


End Sub