Table Cell font is weird and bigger than it should be (bold?)

Sub setHeights()
Dim targetRange As Range
Dim targetCell As Range

    Set targetRange = Range("B:B")
    For Each targetCell In targetRange
        If Not IsEmpty(targetCell) Then
            If targetCell.Font.Bold Then
                targetCell.RowHeight = 15
            ElseIf targetCell.Font.Superscript Then
                targetCell.RowHeight = 12.75
            Else
                targetCell.RowHeight = 10.5
            End If
        End If
    Next targetCell
End Sub

xlWs.Cells(1, 2).value = StripTags("this <b>should</b> be <b>bold</b>")
Dim toBold As String = "this <b>should</b> be <b>bold</b>"
Dim i As Integer = 0
Dim loopcount As Integer = 0
While i > -1
    Dim startTag As Integer = toBold.IndexOf("<b>", i)
    If startTag = -1 Then Exit While
    Dim endTag As Integer = toBold.IndexOf("</b>", i)
    toBold.Remove(startTag, 3)
    toBold.Remove(endTag, 4)
    xlWs.Cells(1, 2).characters(startTag + 1 - (loopcount * 7), endTag - startTag - 3).font.bold = True
    loopcount += 1
    i = endTag + 1
End While


Function StripTags(ByVal html As String) As String
        Return Regex.Replace(html, "<.*?>", "")
End Function

span.bold {
  font-size: 20px;
  font-weight: 700;
}

p {
  font-size: 16px;
  color: black;
  font-family: sans-serif;
  padding: 22px;
  max-width: 60%;
  display: inline-block;
  margin-top: 0px;
}

<p align="center">
  <span class="bold">Welcome to Coding Club for Web Developers</span> <br> Coding Club web developers is specifically designed to teach the basics of making a website by learning HTML, Javascript, and CSS. Using Discord, we talk with our team to learn from each other and
    to design for our upcoming projects. As a beginner or an amateur, you'll learn everything you need to know about Web Development. To practice, you can go to W3Schools, Sololearn, or Codecademy. <br>

Dim char As Word.Range
Dim searchRange As Range

Set searchRange = Selection.Range
searchRange.End = ActiveDocument.content.End

    For Each char In searchRange.Characters
        If char.Font.Bold = True Then
            char.Font.Size = char.Font.Size + 4
        End If
    Next char