VB: Winsock + ScriptControl

[Hussl]

Hallo, ich hab ein Problem mit den beiden o.g.

Dem ScriptControl hab ich eine Klasse meines Programms übergeben, wo die wichtigsten Funktionen drinstehen.
Eine dieser Funktionen heißt FireEvent, mit der ich die Verbindung zu einer bestimmten Webseite auslöse. Jetzt soll der Code des ScriptControls erst weiter ausgeführt werden, wenn die Verbindung wieder geschlossen wurde. Und da komm ich nicht weiter...

hier der code:

FireEvent >> Call sEvent

Public Sub sEvent()

    Dim strURL As String
    Dim strHost As String
    Dim strPage As String
    
    If txtURL = "" Then
        msgbox "Bitte geben Sie eine korrekte URL ein."
        Exit Sub
    End If
    
    strURL = txtURL
    If Left(strURL, 7) = "http://" Then strURL = Mid(strURL, 8)
    
    On Error GoTo ErrHandle
    
    p_strHost = Left(strURL, InStr(1, strURL, "/") - 1)
    p_strPage = Mid(strURL, InStr(1, strURL, "/"))
    
    p_lngDownloadedBytes = 0
    p_strHttpResponse = ""
    p_HeaderReceived = False
    
    With Winsock
        .Tag = "open"
        .Close
        .LocalPort = 0
        .Connect p_strHost, 80
    End With

ErrHandle:
    If Err.Number = 5 Then
        strURL = strURL & "/"
        Resume 0
    End If

End Sub

Wenn die Übertragung fertig ist, setze ich Winsock.Tag = "close". Also muss ich das abfragen. Jedoch hab ich keinen blassen Schimmer, wo ich das machen muss, und wie:

Do
   Sleep x  'oder doch besser...
   DoEvents '...??
Loop Until Winsock.Tag <> "open"

und bei welcher Prozedur muss ich das aufrufen??

für infos wäre ich sehr dankbar!