最近ＶＢ６をやり始めました。
ファイルを一行ごとに読み込んで別々のテキストボックスに表示したいのですが
Do Until objFile.AtEndOfStream
strRecBuff = objFile.ReadLine
If (i = 0) Then
Text0.Text = strRecBuff
ElseIf (i = 1) Then
Text1.Text = strRecBuff
ElseIf (i = 2) Then
Text2.Text = strRecBuff
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
End If
i = i + 1
Loop
こんな風に書いていくしかないのでしょうか。
何行にもわたってしまうのでうまく書けないかと思いまして、、、
よろしくお願いします。