più semplicemente:
codice:
Dim strTesto As String, strRiga As String

Open percorsoFile For Input As #1
    
    Do While Not EOF(1)
        
        ' Legge i dati di una riga nella variabile
        Input #1, strRiga        
        'aggiunge la riga letta alla variabile
        strTesto = strTesto & strRiga
        
    Loop

Close #1

Text1.Text = strTesto