Sequential Numbering Help

[palmorek]

I am trying to build a macro in Excel for the purpose of authorizing checks. I am trying to figure out when the user is done entering their information they hit an enter button and the macro will assign an authorization number for that particular check. My delimma is sequential numbering. I found the following code.

Public Function NEXTSeqNumber()

Const sDEFAULT_PATH As String = "S:\Accounting\KPalmore"
Const sDEFAULT_FNAME As String = "defaultseq.txt"
Dim nFileNumber As Long

nFileNumber = FreeFile
If sFileName = "" Then sFileName = sDEFAULT_FNAME
If InStr(sFileName, Application.PathSeparator) = 0 Then _
sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileName
If nSeqNumber = -1& Then
If Dir(sFileName) <> "" Then
Open sFileName For Input As nFileNumber
Input #nFileNumber, nSeqNumber
nSeqNumber = nSeqNumber = nSeqNumber + 1&
Close nFileNumber
Else
nSeqNumber = 1&
End If
End If
On Error GoTo PathError
Open sFileName For Output As nFileNumber
On Error GoTo 0
Print #nFileNumber, nSeqNumber
Close nFileNumber
NEXTSeqNumber = nSeqNumber
Exit Function
PathError:
NEXTSeqNumber = -1&
End Function

I am not an expert so I am not exactly sure how to make this work or if there is another method to use for sequential numbering. I would appreciate any help you could provide.

Thanks