[VB6] Leggere include sul server e recuperare i valori

[maximum]

Sono riuscito a leggere il file con i seguente sistema:

Dim FileLetto As String
Dim strURL As String
    
strURL = URL_DATI & INCLUDEFILEINC
    
FileLetto = ReadFile(strURL)

Questa la funzione:

Public Function ReadFile(strURL As String) As String
    Dim Inet As Object
    
    Set Inet = CreateObject("InetCtls.Inet")
    
    Inet.URL = strURL
        
    ReadFile = Inet.OpenURL(strURL, 0)
        
    Do Until Inet.StillExecuting = False ' WAIT Downloading..
      DoEvents
    Loop
       
    Set Inet = Nothing
End Function