Cioè???
forse continuare nel:

Private Sub openme()
Open CommonDialog1.FileName For Input As #1
Input #1, xxx
txt1.Text = xxx
Close #1
Input #2, xxx
txt1.Text = xxx
Close #2
Input #3, xxx
txt1.Text = xxx
Close #3
...
...
...
End Sub

?!?

:master: