myCell = "A3"
                OneChar = 0
                With objWorksheet.Range(myCell)
                    For i = 1 To .Characters.Count
 
                        With .Characters(i, 1).Font
 
                            ' Add the start tag <b>
                            If .Bold = True And boldON = False Then
                                FullRecord = FullRecord & "<b>"
                                boldON = True
                            End If
 
                            ' Add the end tag <\b>
                            If .Bold = False And boldON = True Then
                                FullRecord = FullRecord & "<\b>"
                                boldON = False
                            End If
                        End With
 
                        ' Increment character counter
                        OneChar = OneChar + 1
 
                        ' Add the character to the FullRecord variable
                        FullRecord = FullRecord & Mid$(.Characters.Text, OneChar, 1)
                    Next i
 
                    ' If all the cell is bold then the end tag needs to be added
                    If .Bold = True Then
                        FullRecord = FullRecord & "<\b>"
                        boldON = False
                    End If
                End With