Récupérer le texte brut d'une page html

Bonjour

je cherche à récupérer le texte brut d'une page html (avec ou sans la mise en forme, sans de préférence). J'ai déjà le code suivant :

Sub Test()
  Dim URL As String
  URL = "http://monadresse.fr/"

  Dim i As Long
  For i = 2 To 6000
    Dim txt As String, URL2 As String
    If Not IsEmpty(Cells(i, 1).Value) Then
        URL2 = URL & (Cells(i, 1).Value) 'Construction de l'URL
        With CreateObject("MSXML2.XMLHTTP")
          .Open "GET", URL2, False
          .Send
          txt = .ResponseText
        End With
        Cells(i, 6).Value = txt 'texte retourné en html
    End If
  Next i

End Sub

Il me permet de récuper le texte html. Comment puis-je récupérer le texte brut?

Merci d'avance