Attribute VB_Name = "Module1"

Public Function JVbCode(caFileName As String, dwExitCode As Long) As Long
    FileNumber = FreeFile
    Open caFileName For Output As #FileNumber
    If Err.Number <> 0 Then
        JVbCode = 62
        Exit Function
    End If

    Print #FileNumber, dwExitCode
    If Err.Number <> 0 Then
        Close #FileNumber
        JVbCode = 63
        Exit Function
    End If

    Close #FileNumber
   JVbCode = True
End Function

