Scrivere in una TextBox e salvarlo in un file di testo

[Robyn69]

cosi cliccando sul cmdload
mi appare il contenuto nella textbox senza errore

Private Sub cmdload_Click()
Dim NumFile As Integer
Dim sNomeFile As String
Dim txt As String
sNomeFile = "c:\menufile\mio.txt"
txt = Text1.Text
File1.Path = "C:\Menufile"
Dir1.Path = "C:" 'Drive1.Drive
NumFile = FreeFile()
Open "c:\menufile\mio.txt" For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)


'Legge i primi 10 caratteri del file
'sNomeFile = Input(10, #NumFile)             ho eliminato questa voce

Close #NumFile

End Sub

quindi se ho capito bene ripetevo la stessa cosa due volte
ossia prima gli chiedevo di leggerlo tutto
poi di leggere solo i primi dieci car.
e giusta la mia traduzione?