小吳 VBQA 程式設計討論

小弟最近接觸一個程式Samurize,裡面有些內容需要vb相關的知識
所以來請教個位大大,請大大幫忙解惑
我想重某某網頁擷取其部分內容,並輸出其結果
但是發現疑問.. 關於 " 的問題
如果我要擷取的資料,中間有"字元.我該怎麼辦?
------下面是我所寫的..無法運作...-----


Const HTTP_HOME = "http://mmc.cwb.gov.tw/alldataxr.asp?stidname=Linshanbi#alldataxr.asp"

Private Function fnGetText(sData)
Set objRS = CreateObject("ADODB.Recordset")
　　　　objRS.Fields.Append "txt", 200, 500000, &H80
　　　　objRS.Open
　　　　objRS.AddNew
　　　　objRS.Fields("txt").AppendChunk sData
　　　　fnGetText = objRS("txt").Value
　　　　objRS.Close
End Function

Private Function fnGetHeader(sStartStr, sEndStr, sInStr)
sTmpStr = InStr(sInStr, sStartStr) + Len(sStartStr)
　　　　sTmpStr2 = InStr(sTmpStr, sInStr, sEndStr)
　　　　If sTmpStr2 ＞ 0 Then
　　　　　　　　fnGetHeader = Mid(sInStr, sTmpStr, sTmpStr2 - sTmpStr )
　　　　Else
　　　　　　　　fnGetHeader = ""
　　　　End If
End Function
Function fnGetQuote
Dim Http
　　　　Set Http = CreateObject("Msxml2.ServerXMLHTTP")
　　　　Http.Open "GET",HTTP_HOME,False
　　　　Http.Send
　　　　sInStr = Http.responseBody
　　　　Htmldata = fnGetText(sInStr)
　　　　Headline1 = fnGetHeader("＜td class="word"＞氣溫","＜/td＞",HtmlData)
　　　　fnGetQuote = Headline1
End Function