Questo è pezzo di codice del mitico Francesco Balena, però manca la parte x il controllo dei caratteri accentati come posso aggiungerla?

Function HTMLDecode(ByVal html As String) As String
Dim i As Long
HTMLDecode = html
Do
' ricerca il carattere & successivo, esci se non ce ne sono
i = InStr(i + 1, HTMLDecode, "&")
If i = 0 Then Exit Do
' controlla se si tratta di un carattere speciale
If StrComp(Mid$(HTMLDecode, i, 6), "", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & " " & Mid$(HTMLDecode, _
i + 6)
ElseIf StrComp(Mid$(HTMLDecode, i, 6), """, vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & """" & Mid$(HTMLDecode, _
i + 6)
ElseIf StrComp(Mid$(HTMLDecode, i, 5), "&", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & "&" & Mid$(HTMLDecode, _
i + 5)
ElseIf StrComp(Mid$(HTMLDecode, i, 4), "<", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & "<" & Mid$(HTMLDecode, _
i + 4)
ElseIf StrComp(Mid$(HTMLDecode, i, 4), "&gt;", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & ">" & Mid$(HTMLDecode, _
i + 4)
End If
Loop
End Function