This is what my Handler named: cmdUpload_Click(() looks like when inside the Project1. Also when trying to finish off the execution of the data inside this Handler, at RunTime and also CompileTime, it hangs until the ActiveX Control Object hangs and crashes the Webpage Document. That is the type of Project that I'm using for this project of mine. It's a Web Cloud Application. The app is totally online and then the Documents, etc are on our Local or Network disk, of your system/network. I won't be keeping any kind of data of the end-user's online, for any period of time. Other than a Webpage Domian that is being hosted by my Server, but then that is in the future, of course...
Code:
Public Sub cmdUpload_Click()
On Error Resume Next

InitLUT

Dim Item1 As String
Dim Item2 As String
Dim Item3 As String
Dim Item4 As String
Dim Item5 As String
Dim bAry() As Byte
Dim LocalPath1 As String
Dim LocalPath2 As String
Dim LocalPath3 As String
Dim RemotePath1 As String
Dim RemotePath2 As String
Dim RemotePath3 As String

With frmSettings
    LocalPath1 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\" & .txtUsername.Text & ".txt"
    LocalPath2 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\address book.txt"
    LocalPath3 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\dbase.txt"

    RemotePath1 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/" & .txtUsername.Text & ".txt" & Chr(34)
    RemotePath2 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/address book.txt" & Chr(34)
    RemotePath3 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/dbase.txt" & Chr(34)
    
    Item1 = .txtPassword.Text & vbCrLf & .Combo1.Text & vbCrLf & .txtEmail.Text & vbCrLf & Time & " " & Date & vbCrLf & .txtDOB.Text & vbCrLf & .txtWork.Text & vbCrLf & .txtType.Text & vbCrLf & .txtHeld.Text
    Item2 = .picProfile.Picture
    Item3 = "Your Contact List..."
    Item4 = "Likes and Dislikes of Apps, Ads and so on..."
    Item5 = "Your Apps, that you use on the Windows Network..."

    If .Combo1.Text <> "" And .txtFirst.Text <> "" And .txtSurname.Text <> "" And .txtDate.Text <> "" And .txtDOB.Text <> "" And .txtEmail.Text <> "" And .txtHeld.Text <> "" And .txtPassword.Text <> "" And .txtType.Text <> "" And .txtUsername.Text <> "" And .txtWork.Text <> "" Then
        Call FXInCipher(Item1 & vbCrLf & "[BITMAP]" & vbCrLf & Item2 & vbCrLf & "[/BITMAP]" & vbCrLf & Item3 & vbCrLf & Item4 & vbCrLf & Item5, bAry)

        Open "c:\temp\project1\usernames\" & Combo1.Text & "\" & txtGateWay.Text & "\" & txtUsername.Text & "\" & .txtUsername.Text & ".txt" For Binary As #1
            Put 1, 1, bAry
        Close #1
    Else
        .labLabel.Caption = "Not all of the data information has been totally completed. Can you please complete the Form, so that you can then carry on with the account's Sign Up process???"
    End If

    .Inet.Execute .Inet.Url, "PUT " & LocalPath1 & " " & RemotePath1
    .Inet.Execute .Inet.Url, "PUT " & LocalPath2 & " " & RemotePath2
    .Inet.Execute .Inet.Url, "PUT " & LocalPath3 & " " & RemotePath3
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/attachments"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/data"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/photos"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/threads"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/videos"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/audio"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/inbox"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/outbox"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/spam"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/drafts"
         
    While .Inet.StillExecuting
        DoEvents
    Wend
        
    .Inet.Execute , "CLOSE"
    .labLabel.Caption = "!! Internet FTP Transfer process, from this Client Console has been completed !!"
End With

    Kill ("c:\temp\project1")
    
    Unload frmSettings
End Sub