Dim temp As String
Dim myDate As String
Dim myFileName As String
myFileName = "d:\test１.txt"
Open myFileName For Input As #1
Do Until EOF(1)
    Line Input #1, temp
    myDate = myDate & temp & vbCrLf
Loop
Close #1
Text2.Text = myDate

仮に今、test１.txtには１０行書かれていたとします。
しかし最終的に、Text2.Textは１１行書かれたことになります。
ここで、質問です。
Text2.Textにぴったり１０行読み込ませるにはどうしたらよいですか？
私としては、if文で最後は改行しない、
または、無理やり１１行目を削除するコードを考えているのですが力不足で表現できません。
誰かアドバイスしてください。

> Text2.Text = myDate

Do Untill hoge = 10
    hoge = hoge + 1
    Line Input #2, temp
Loop

１０回    Line Input #2, temp
を行えば、１０行読み込まれるわけで・・・。

＃ってなんだか誤爆の予感

>>いなさんへ
早速の回答ありがとうございます
今１０行は仮の数字なので、本当は何行かわからないのです。
その場合はどしたらよいでしょうか？

あ〜ゴメン、質問全然読んでなかった。

Text2.Text = myDate

を

Text2.Text = Left(myDate,InStrRev(myDate,vbCrLf))

かな？

ホント思い込みって怖いね。

#解説は、myDateから、最後のvbCrLfまでの位置を求めて(InStrRev)、
#それより左の文字列を取得(Left)

>>いなさんへ
ありがとうございました。
私はｖｂ初めたばかりの、しかも初投稿だったので解かりにくい
質問だったと思いますが最後まで教えてくれてありがとうございました。
早速組んでみます。

> >>いなさんへ
> ありがとうございました。
> 私はｖｂ初めたばかりの、しかも初投稿だったので解かりにくい
> 質問だったと思いますが最後まで教えてくれてありがとうございました。
> 早速組んでみます。

あ、あと１箇所伝え忘れたけれども、
Dim intFileNo　As Integer

'使用可能なファイル番号を取得
intFileNo = FreeFile

と記述しておいて、

Open myFileName For Input As #1
の部分を
Open myFileName For Input As #intFileNo
と変えた方がいいかも・・・。

#1って言うのは、全部#intFileNo に変えてさ・・・。

そうすると、2度3度実行しても大丈夫

>>いなさんへ
色々とアドバイスいただき何とか形になりました。
本当にありがとうございました。