Sub Click(Source As Button)
    'On Error Goto ErrH
    Print "старт"
    If datapatch<>"" Then
        Print "datapatch:" & datapatch
        On Error Goto ErrH
        Dim objHTTP
        Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
        objHTTP.Open "GET", "http://127.0.0.1:9999/exit", False
        Call objHTTP.setRequestHeader ("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
        
        objHTTP.Send
        
        Print "9999/exit сделали"
    End If
    '
    Exit Sub    
ErrH:
    Print "Ошибка " & objHTTP.GetLastError
    Exit Sub
End Sub