文本文件PS Im中不允许使用流读取器的行数

Question

它总是输出数字2，我不知道问题是来自代码还是程序：

        DIM COUNT_LINE AS INTEGER =0
        If Not EOF(1) Then
            FileGet(1, True, RecordNumber:=1) 
            COUNT_LINE += 1
        End If
        last_record = COUNT_LINE+1
        TxtItemNumber.Text = last_record
        End If'''

Answer 1

Imports System.IO