I wrote some code for checking if it can read a file that i have on my website. The file that the program is supposed to try to open is www.guitar.gratisplaneten.com/test.txt.

Why can't my program open the file? Is there some other way of doing this?

Here's the code of the function:

Function connected(hej)
On Error GoTo notconnected
Open "http://www.guitar.gratisplaneten.com/test.txt" For Input As #9
Close #9
Exit Function
notconnected:
If (MsgBox("The program cannot connect to the internet, check your internet and firewall settings and try again. To try again, press OK.", vbOKCancel, "No connection")) = vbOK Then
connected (1)
End If
End
End Function