Ako koristis nizove kontrola umesto text1, text2, ... i ako u prvi text box ide prva linija, u drugi druga, itd. onda probaj ovako nesto
Code:
Dim fnum As Integer
Dim sText As String
Dim LineNo As Long
fnum = FreeFile
LineNo = 0
Open App.Path & "\blabla.txt" For Input As #fnum
While Not EOF(fnum)
Line Input #fnum, sText
txtText(LineNo).Text = sText
LineNo = LineNo + 1
Wend
Close #fnum
Pogledaj top topic FSO i TextStream objekat, mozda ce ti sa njim biti jednostavnije da radis