Dim o As Control
Dim f As Integer
 
For Each o In Form1.Controls
   If TypeOf o Is Textbox And o.Tag <> "" Then
         f = FreeFile
         Open o.Tag For Input As #f
                 Do While Not Eof(#f)
                        Line Input #f,Temp$
                        o.Text = Temp$
                 Loop
         Close #f
   End If
Next