Per FTP prova così

codice:
    With Inet1
        .AccessType = icDirect
        .Protocol = icFTP
        
        .URL = "ftp://ftp.microsoft.com"
        
        .Execute , "GET developr/vb/public/readme.txt local.txt"

        While .StillExecuting
            DoEvents
        Wend
    End With
    
    Open "local.txt" For Input As #1
    Text1.Text = Input(LOF(1), 1)
    Close #1
Il file temporaneo (local.txt) va cancellato, se esiste, prima di eseguire il codice.
Ho usato il canale #1 per comodità ... sarebbe necessario usare la FreeFile per ottenere un canale libero dal sistema.