Подсчитать количество строк в файле - VB

Private Sub cmdStart_Click()
  Dim sT As String
  Dim iFn As Integer
  Dim lNumLine As Long
  Dim sMsg As String
  '
  If Trim$(sFnNumLine) = "" Then
    sMsg = "Откройте файл для обработки!"
    MsgBox sMsg, 48
    Exit Sub
  End If
  '
  ' Открываем файл для подсчёта строк
  iFn = FreeFile
  Open sFnNumLine For Input As #iFn
  lNumLine = 0
  Do While Not EOF(iFn)
    Line Input #iFn, sT
    If Trim$(sT) <> "" Then
      ' Считаем только непустые строки и не из пробелов
      lNumLine = lNumLine + 1
    End If
  Loop
  Close #iFn
  sT = "В файле:"
  sT = sT + Chr$(13) + Chr$(10)
  sT = sT + sFnNumLine
  sT = sT + Chr$(13) + Chr$(10)
  sT = sT + "количество строк равно:"
  sT = sT + Str$(lNumLine)
  txtResult.Text = sT
End Sub