Modules & VBA :: Check If File Exist On HTTP Server

I found and modified this code to allow me to check (fast) if a file exist on a http server or not (without downloading it).

Code:
Public Function CheckNetFile(WebFile As String)
Dim XmlHttpReq As Object
Set XmlHttpReq = CreateObject("Microsoft.XMLHTTP")
XmlHttpReq.Open "HEAD", WebFile, False

[Code] ....

In the above code I managed to declare Webfile as a string so I can call on it later but one thing I still need to tweak is to also get a result out of the test code in a better way than having to publically declare the "CheckNet" variable somewhere else in my app.

First prize would something like this:

If CheckNetFile ("http://www.mysite.co.za/test/test.txt") = 1 then "Yes" else "No"

How do I build the 'booleon check' into the original function?