function HTMLDecode(sText)
{
    Dim i;
    sText = Replace(sText, """, Chr(34));
    sText = Replace(sText, "<"  , Chr(60));
    sText = Replace(sText, ">"  , Chr(62));
    sText = Replace(sText, "&" , Chr(38));
    sText = Replace(sText, " ", Chr(32));
    For i = 1 to 255
        sText = Replace(sText, "&#" & i & ";", Chr(i));
    Next
    HTMLDecode = sText
}
End Function