Save Web Page to MHT String

Downloads a web page into a string variable containing MHT. MHT is a web archive with all images and style sheets embedded. It's a MIME-formatted text document. When saved with the .mht extension, Internet Explorer can open and display the page.

Download Chilkat MHT ActiveX

Dim mht As New ChilkatMht

Dim success As Long

success = mht.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
End If

Dim mhtStr As String

mhtStr = mht.GetMHT("http://www.google.com/")
If (mhtStr = vbNullString ) Then
    Text1.Text = Text1.Text & mht.LastErrorText & vbCrLf

Else
    Text1.Text = Text1.Text & mhtStr & vbCrLf
End If