title: Extract text content from cell (With bold, italic, etc)
body: <p>I'm trying to extract text content from Excel using a macro. This is my code: </p>
  
  <pre><code>Dim i As Integer, j As Integer
  Dim v1 As Variant
  Dim Txt As String
  
  v1 = Range("A2:C15")
  For i = 1 To UBound(v1)
      For j = 1 To UBound(v1, 2)
          Txt = Txt &amp; v1(i, j)
      Next j
      Txt = Txt &amp; vbCrLf
  Next i
  
  MsgBox Txt
  </code></pre>
  
  <p>But it is showing the raw characters only meaning that it doesn't show any formatting information like bold, italic, underline, etc..</p>
  
  <p>I want to extract the text along with the formatting information.</p>
  
  <p><strong>Example:</strong> This is <strong>sample</strong> text</p>
  
  <p><strong>Expected output:</strong> This is <strong>sample</strong> text</p>
  
  <p><strong>Actual output:</strong> This is sample text</p>
  
  <p>Can someone explain what's wrong with the code and tell if anything is wrong? </p>