lo posto 1 po più leggibile

Option Compare Database

Private Sub mnuApri_Click()

Dim strNomeFile As String
Dim strTesto As String
strNomeFile = InputBox("Nome e percorso file con sua estensione:")
Open strNomeFile For Input As #1
strTesto = Input(LOF(1), 1)
Close 1
txtFile = strTesto
End Sub


Private Sub MnuEsci_Click()
DoCmd.Close
End Sub


Private Sub MnuNuovo_Click()

Dim intRisposta As Integer

If blnTextChanged Then

intRisposta = MsgBox("Il testo è stato modificato." & _
"Vuoi salvare le modifiche?", _
vbYesNo + vbQuestion, "Conferma salvataggio")

If intRisposta = vbYes Then

MnuSalva_Click
Else
txtFile = ""
End If
Else
txtFile = ""
End If
blnTextChanged = False
End Sub



Private Sub MnuSalva_Click()

Dim strNomeFile As String

strNomeFile = InputBox("Inserisci il nome del file:")
Open strNomeFile For Output As #1
Print #1, txtFile
Close 1
End Sub