Non ho usato la CommDial, per brevità, prova così:
codice:
Dim FileNum As Integer
Dim FileName As String
Private Sub CmdApri_Click()
Dim sPrimo As String, sSecondo As String
FileName = App.Path & "\Prova1.txt"
FileNum = FreeFile()
Open FileName For Input As FileNum
' Trova la fine del file:
Do While Not (EOF(FileNum) = True)
Input #FileNum, sPrimo, sSecondo
Text1.Text = sPrimo
Text2.Text = sSecondo
Loop
Close #FileNum
End Sub
Private Sub CmdSalva_Click()
FileName = App.Path & "\Prova1.txt"
FileNum = FreeFile()
Open FileName For Output As #FileNum
Write #FileNum, Text1.Text; Text2.Text
Close #FileNum
End Sub