Function Alive(ByVal url As String) As String
Dim result As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

winHttpReq.Open "GET", url, False

On Error Resume Next
winHttpReq.Send
If Err.Number = 0 Then
    If winHttpReq.Status = "200" Then
      Alive = "1"
    Else
      Alive = "0"
    End If
Else
    Alive = "0"
End If

On Error GoTo 0

End Function