Fehler in Line 16, Column 1?!

Also: folgender Code:

Function ShowMyIP()
htmlResult = BinToText(GetHTMLBin("http://www.showmyip.com/"), 35000)

alku = InStr(htmlResult, "Connection ")
lopetus = InStr(alku, htmlResult, " --> showmyip.com")
fin = mid(htmlResult, alku, lopetus-alku)
fin = replace(fin, "Connection ", "")
ShowMyIP = fin

End Function

Function GetHTMLBin(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
GetHTMLBin = objXMLHTTP.responseBody
Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
Const adFldLong = &H00000080
Const adVarChar = 200
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk varBinData
BinToText = objRS("txt").Value
objRS.Close
Set objRS = Nothing
End Function

Und dann sagt er immer [Fehler] Zugriff verweigert
In ShowMyIP.vbs (ShowMyIP)
Line 16, column 1. Aber ich find ihn nicht?! Help.

Er soll meine IP am Desktop anzeigen.

Einrückungen + Zeilennummerierung wäre wirklich nicht verkehrt...

Weiters, welche Version des Scripting Hosts?

pong