Option Explicit
'Declare and create ASPForm object
Dim Form As New ASPHugeUpload.ASPForm
Dim Request As ASPTypeLibrary.Request
Dim Response As ASPTypeLibrary.Response

'OnStartPage
Public Sub OnStartPage(SC As ASPTypeLibrary.ScriptingContext)
  'Please add call of OnStartPage method of ASPForm
  'if you want to debug your VBA class
  Form.OnStartPage SC
  
  'Get request/response objects
  Set Request = SC.Request
  Set Response = SC.Response
  
  
  'some conditions
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    If Form.State = fsCompletted Then
      'Store uploaded files
      Form.Files.Save "c:\upload"
    ElseIf Form.State >= fsError Then
      'handle form errors
      Select Case Form.State
        Case fsSizeLimit:
          Response.Redirect "http://....."
        Case fsTimeOut:
          Response.Write "......."
      End Select
    End If
  End If
End Sub

'Access ASPForm properties
Public Function FormState() As Long
  FormState = Form.State
End Function