@Al, you were right about the variable mismatch, but the function still will not work from my office computer. It just exits the function after reaching the line “Set inet1 = New Inet”. They lock these computers down pretty hard, so it may be a user restriction, or it could be a firewall issue. As you know, the part that you found different on the Brittish msn site did not post, and I am interested to know the difference. If you would be so kind as to repost, you can get the html string to post as text – rather than hypertext – by using { } instead of < >. It will not be a literal representation, but we will get the point.

You’ve mixed your variables a little – creating myhttp but using mypage in your inStr()

Also, they may have changed the site or it’s different for Brits:”"
works for me:

Function Temp(strCity As String)
strCity = Replace(strCity, “,”, “&2C+”)

Dim myURL As String
myURL = “http://search.msn.com/results.aspx?q=current+temperature+” & strCity

Dim inet1 As Inet
Dim myhttp As String

Set inet1 = New Inet
With inet1
.Protocol = icHTTP
.URL = myURL
myhttp = .OpenURL(.URL, icString)
End With
Set inet1 = Nothing

Dim intStart As Integer, intEnd As Integer
intStart = InStr(myhttp, “”) + 39
intEnd = InStr(intStart, myhttp, “&”)

Temp = Mid(myhttp, intStart, (intEnd – intStart))

End Function

Dim intStart, intEnd As Integer

This is translated by VBA as

Dim intStart As Variant, intEnd As Integer

You probably meant

Dim intStart As Integer, intEnd As Integer

You can share a ‘Dim’ statement but not a declaration.

HTH,
JP