Visual Basic 6 - problema per scaricare file .exe da sito

qualcuno sa dirmi perchè non mi funziona la parte della label ovvero ha funzionato per qualche volta poi non vedo mai i messaggi delle select case la il file lo scarica correttamente.

Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo errore
Select Case State
Case 0
labelStato = "*******"
Case 1
labelStato = "Controllo host"
Case 2
labelStato = " Controllo Host OK"
Case 3
labelStato = "Connessione in corso..."
Case 4
labelStato = "Connesso"
Case 5
labelStato = "Richiesta..."
Case 6
labelStato = "Attendere..."
Case 7
labelStato = "Connessione..."
Case 8
labelStato = "Risposta ricevuta, attendere.."
Case 9
labelStato = "Disconnessione in corso.."
Case 10
labelStato = "Disconnesso"
Case 11
labelStato = "Errore"
Case 12
labelStato = "Concluso"
End Select
Exit Sub
errore:
labelStato.Caption = Err.Description
Resume Next
End Sub

Private Sub bottonScarica_Click()
Dim stringSourceFile As String, stringDestinationFile As String

stringSourceFile = "estrazionidellotto.com/…;
stringDestinationFile = ("C:\Enalotto.exe"
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(stringSourceFile, icByteArray)
IntNumberFile = FreeFile
Open stringDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile


'MsgBox "File scaricato e salvato correttamente", vbDefaultButton1

End Sub

Tra la

End Select

e la

Exit Sub

prova ad inserire una

DoEvents

falso allarme adesso rifunziona, ora posso dedicarmi allo studio della funzione shell

lo so che alla maggior parte di Voi non interessa ma spero che serva a chi legge il form

adesso ho aggiunto queste righe:


Const SW_SHOWNORMAL = 1
ShellExecute Me.hwnd, vbNullString, "C:\Enalottotto.exe", vbNullString, "C:\", SW_SHOWNORMAL

che mi estraggono il file da zippato in .csv di excell (come è salvato sul sito).

Mi rimane solo di trasformarlo in .xls anzichè in punto .csv

Qualcuno sa indicarmi la strada ?

Quoto me stesso ... ti avevo gia' scritto