In the below Macro, I would like to value of RowCount to be displayed in a
form.

Public Function RunRecordCount()

   Dim dummy As String
   Dim filename As String
   Dim RowCount As Long
   
   filename = "H:\BHTR_GREEKS.TXT"
   
   Open filename For Input As 1
       Do While Not EOF(1)
           Line Input #1, dummy
           If dummy <> "" Then
               RowCount = RowCount + 1
           End If
       Loop
       Close 1

End Function

Please advise.

Could you also provide some websites where I can see sample coding?

Thanks