Passing Macro value to Form

From: Ken <Enygma@xxxxxxxxxx>
Date: Mon, 26 Nov 2007 07:32:00 -0800

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
.

Follow-Ups:
- Re: Passing Macro value to Form
  - From: Jeff Boyce

Prev by Date: Re: OpenForm Filtering too much
Next by Date: Re: Combo Box Macro
Previous by thread: How do you open a file for appending data?
Next by thread: Re: Passing Macro value to Form
Index(es):
- Date
- Thread

Relevant Pages

Re: Dynamically/conditionally updating INCLUDETEXT fields
... For Each fld In ActiveDocument.Fields ... Dim status As String ... Dim fileName As String ...
(microsoft.public.word.vba.general)
Re: Dynamically/conditionally updating INCLUDETEXT fields
... For Each fld In ActiveDocument.Fields ... Dim status As String ... Dim fileName As String ...
(microsoft.public.word.vba.general)
Re: COMPILE LOG FROM INFO WITHIN MULTIPLE TEXT FILES
... Dim objShell As Object, objFolder As Object ... Dim Num1 As String ... LineNumber = LineNumber + 1 ... RowCount = RowCount + 1 ...
(microsoft.public.excel.misc)
Re: Folder Contents to Excel
... Dim rowCount As Long ... Public Sub ListFiles(ByVal myDir As String) ... Dim FileName As String ...
(microsoft.public.excel.misc)
Re: Automated google search
... Dim szSearchWords As String ... RowCount = RowCount + 1 ... derived from google in column C. ...
(microsoft.public.excel.programming)