Formattering af tal

Hej

Jeg har fundet denne lækre kode, som giver mig fortløbende nummerering, hvor nummereringen ikke er "bruger-begrænset".

Jeg kunne godt tænke mig, at min nummerering skal starte med 000001, istedet for 1 - hvordan gøres dette?

Koden:
Public Function NextSeqNumber(Optional sFileName As String, Optional nSeqNumber As Long = -1) As Long
        Const sDEFAULT_PATH As String = "C:\...."
        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 + 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
   
    Public Sub Workbook_Open()
        ThisWorkbook.Sheets(1).Range("E2").Value = NextSeqNumber
    End Sub