このﾏｸﾛを試して下さい｡
変換後のHTMLﾌｧｲﾙはﾛｰｶﾙﾃﾞｨｽｸに保存します｡
hogeConvの第1引数に変換対象のURLを､第2引数に変換後のﾌｫﾙﾀﾞ名＋ﾌｧｲﾙ名をｾｯﾄしてください｡

白い☆は､HTMLﾀｸﾞが

<font color="dcdcdc">★★★</font>

になっているかどうかで判断しています｡
これ以外のHTMLﾀｸﾞの場合は認識できないので､お知らせ下さい｡
★の数は任意個数に対応しています｡

Option Explicit

'ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ
Sub main()
 Call hogeConv("http://mik39.dousetsu.com/hatena_test.htm", "C:/test/test.html")
End Sub

'Web読み込み･変換処理
Sub hogeConv(url As String, outfname As String)
  'Web読み込み処理
 Dim oHttp As Object
 Dim str As String

 On Error Resume Next
 Set oHttp = CreateObject("MSXML2.XMLHTTP")
 If (Err.Number <> 0) Then
 Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
 End If
 On Error GoTo 0
 If oHttp Is Nothing Then
 MsgBox "内部ｴﾗｰ", vbCritical
 Exit Sub
 End If
 
 With oHttp
 .Open "GET", url, False
 .Send
 str = StrConv(.responseBody, vbUnicode)  '文字ｺｰﾄﾞ変換
 End With
 Set oHttp = Nothing

  '変換処理
 Dim re, mc, m As Object
 Dim s2 As String
 
 Set re = CreateObject("VBScript.RegExp")
 re.Pattern = "<font color=""dcdcdc"">([★]+)</font>"  '検索ﾊﾟﾀｰﾝ
 re.Global = True
 Set mc = re.Execute(str)
 For Each m In mc
 s2 = Replace(m.Value, "★", "☆")
 str = Replace(str, m.Value, s2)
 Next

  '書き出し
 Open outfname For Output As #1
 Print #1, str
 Close #1
End Sub

ｴﾗｰ処理も施していない､芸の無いものですが｡
Sheet1のｾﾙA1からA2,A3と下方へ､URLのﾘｽﾄを入力していただくと
取得･変換結果が各ｼｰﾄに格納されます｡

Option Explicit
Option Base 0

Sub Main()

Const strShtUrlList As String = "Sheet1"
Const strShtPrf As String = "Result"

Dim lngCntR As Long
Dim strURL As String
Dim strHTMLsrc As String

Sheets(strShtUrlList).Activate
 For lngCntR = 1 To Columns(1).SpecialCells(xlCellTypeLastCell).Row
 strURL = Cells(lngCntR, 1).Value
 If Left(strURL, 7) = "http://" Then
 strHTMLsrc = GetHTMLSource(strURL)
 Worksheets.Add After:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = strShtPrf & Worksheets.Count
 Cells(1, 1).Value = strURL
 ConvStarChart strHTMLsrc
 End If
 Next

End Sub

Function GetHTMLSource(ByVal strURL As String) As String

Dim objXmlHttp As Object

Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")

objXmlHttp.Open "GET", strURL, False
objXmlHttp.send (Null)

GetHTMLSource = objXmlHttp.ResponseText

Set objXmlHttp = Nothing

End Function

Sub ConvStarChart(ByVal strHTMLsrc As String)

Dim objRegExp As Object
Dim varMatch
Dim lngCntM As Long
Dim strStar(3) As String

strStar(1) = "☆☆☆"
strStar(2) = "★☆☆"
strStar(3) = "★★☆"
strStar(0) = "★★★"

Set objRegExp = CreateObject("VBScript.RegExp")

With objRegExp
 .IgnoreCase = True
 .Global = False
 Do
 .Pattern = "<td class=""col13Td"".*?>"
 Set varMatch = .Execute(strHTMLsrc)
 If varMatch.Count = 0 Then
 Exit Do
 End If
 With varMatch(0)
 strHTMLsrc = Mid(strHTMLsrc, .FirstIndex + .Length + 1)
 End With
 .Pattern = "</td>"
 Set varMatch = .Execute(strHTMLsrc)
 With varMatch(0)
 Cells(lngCntM + 2, 1).Value = strStar(InStr(Left(strHTMLsrc, varMatch(0).FirstIndex), "<font color=""dcdcdc"">"))
 strHTMLsrc = Mid(strHTMLsrc, .FirstIndex + .Length + 1)
 End With
 lngCntM = lngCntM + 1
 Loop
End With

End Sub

あれっ！？､ﾃﾞｰﾀをExcelに読み込むものだと思っていたのですが
HTMLｿｰｽを置換することが目的なのですか！？
???
星の数がずれるﾐｽは｢Cells(lngCntM + 2, 1).Value =…｣で
始まる行に誤りがありましたので訂正いたしました｡

ありがとうございます！！
まだ試せていませんが､htmlﾌｧｲﾙを書き換えることが目的ではなく､Excelに取り込んだ時☆と★で表現されることが目的です｡

補足等ありましたらお願いします｡報酬を少し増やしたいと思います｡