Public Function Yariv(ByVal strUrl As String) As String
 
    Dim oHttp As New MSXML2.XMLHTTP30
 
    On Error GoTo ErrorHandler
    oHttp.Open "HEAD", strUrl, False
    oHttp.send
 
    If Not oHttp.Status = 200 Then Yariv = "not" Else Yariv = strUrl
 
    Exit Function
 
ErrorHandler:
    Yariv = "not"
End Function