Option Explicit
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
 
Private Sub cmdClose_Click()
    'Must unload the application before returning the ExitCode
    Unload Me
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Dim lExitCode As Long
 
    On Error Resume Next
    lExitCode = CLng(Me.Text1)
    'Return exit code
    ExitProcess lExitCode
End Sub