Error Opening dynamic website as text stream

Hi,

I am trying to write the contents of a dynamic website (I guess it's PHP or something similar) into a worksheet
I attempted to open as text stream the URL of the website, but the previous step of getFile does not work

any other way around to achieve what I am trying to do?

excel2003 by the way

'2013-10-25 / B.Agullo /
Public Sub checkDANs()
'description here
    
    Dim webSt As String
    
    webSt = GetBoiler("http://*******/DAN?OpenView")
    
End Sub

and Getboiler I got somewhere

Function GetBoiler(ByVal sFile As String) As String
'**** Kusleika http://www.rondebruin.nl/mail/folder3/signature.htm
    Dim FSO As Object
    Dim TS As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TS = FSO.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = TS.ReadAll
    TS.Close
End Function

thank you!