Private Const INTERNET_OPEN_TYPE_PRECONFIG =  0 
Private Const INTERNET_OPEN_TYPE_DIRECT =  1 
Private Const INTERNET_OPEN_TYPE_PROXY =  3 
Private Const scUserAgent = "VB Project"
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ...
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ...
Private Declare Function InternetReadFile Lib "wininet.dll" ...
Private Declare Function InternetCloseHandle Lib "wininet.dll" ...

Private Function OpenURL(ByVal sUrl As String) As String
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String *  2048 
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
Dim strAuth As String

    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString,  0 )
    hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString,  0 , INTERNET_FLAG_RELOAD,  0 )
    bDoLoop = True
    While bDoLoop
        sReadBuffer = vbNullString
        bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
        sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
        If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
    If hOpenUrl <>  0  Then InternetCloseHandle (hOpenUrl)
    If hOpen <>  0  Then InternetCloseHandle (hOpen)
    OpenURL = sBuffer

End Function

Public Function StrokaHTML(ZaprosHTML As String) As String
Dim Text1 As String
    
    Text1 = OpenURL(ZaprosHTML)
    
End Function