Qualcosa del genere

codice:
    Dim inet As Object
    Dim b() As Byte
    
    Const icByteArray = 1

    Set inet = CreateObject("InetCtls.Inet")
    
    b() = inet.OpenURL("http://www.sito.it/cartella/testo.txt", icByteArray)

    Label1.Caption = StrConv(b, vbUnicode)

    Set inet = Nothing