[vb6] Get Web browser Source code

[Thy Gamer]

Private Sub WEB-BROWSER-NAME-HERE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case iCase
    Case 1
        sHtml = WEB-BROWSER-NAME-HERE.document.All.Item(0).innerHTML 
        iCase = 0
        End Select
End Sub

Put that any where & put

Dim sHtml As String

in the declarations

And use it!