Mancato aggiornamento immediato in finestra.

salve
Sono alle prese con un problema credo dovuto ad una mia svista, certo una stupidaggine.
Ho sul form
Text1.text
text2.text
text3.text con proprietà Multiline per visualizzare il file

Ora, al run ovviamente il file é aggiornato con l'ultimo salvataggio e mi viene tutto mostrato nella finestra Text3.
Io vorrei pero' che ad ogni salvataggio, immediatamente, il file fosse aggiornato
e mostri l'aggiornamento nella finestra text3 multiline.
Per fare questo ho questo codice:

Private Sub salva_Click()' qui salva
Open App.Path & "\miofile.txt" For Append As #1
Print #1, Text1,
Print #1, Text2
close#1
aggiorna
End Sub
Private Sub Form_Load()' qui legge il file al run
Dim riga As String
    Dim testo As String
    Dim nFileNum As Integer
    nFileNum = FreeFile
    Open App.Path & "\miofile.txt" For Input As nFileNum
Do While Not EOF(nFileNum)
 Line Input #nFileNum, riga
        testo = testo & riga & vbCrLf
    Loop
    
    Text3.Text = testo

    Close nFileNum
End Sub
Public Sub aggiorna() ' questo dovrebbe aggiornare in tempo reale. ma non lo fa.
Dim riga As String
    Dim testo As String
    Dim nFileNum As Integer
    nFileNum = FreeFile
    
    Open App.Path & "\miofile.txt" For Input As nFileNum

    Do While Not EOF(nFileNum)
        Line Input #nFileNum, riga
        testo = testo & riga & vbCrLf
    Loop
    
    Text3.Text = testo

    Close nFileNum
End Sub

dove sbaglio e dove posso cambiare per ottenere l'iimediato aggiornamento in text4?

Mi spieghi perché la sub

aggiorna

dovrebbe "aggiornare in tempo reale"?

Semmai solo dopo che hai salvato il file ...

Forse è meglio che chiarisci anche la questione delle textbox ...

Parli di text1, text2, text4

e poi di text3 ... ???

Ah, ecco...

hai ragione, Antonio, su text3 e text4
Un errore di scrittura pêr mostrare qui il codice
Deve essere quindi text3

Appunto perché deve essere aggiornato dopo salvato ho messo il comando AGGIORNA per fare ripetere la lettura del file.

Open App.Path & "\miofile.txt" For Append As #1
Print #1, Text1,
Print #1, Text2
close#1
aggiorna

ma non aggiorna immediatamente

grazie
tizike

Chiedo scusa. Mi funziona adesso.
Anche nel mio codice vi era un errore di text3 o text4, ecco perché non aggiornava a dovere.

Quindi é , come sembra, risolto.
grazie
tizike