今、ＶＢ６．０でプログラムを作成しているのですが、どうしてもうまくいかない点があるためだ
れか教えてください。

　　一列１００行の配列のデータが入ったinput.txtというテキストファイルがあります。
　　コマンドボタンでネクストというボタンを作ってあり、またテキストボックスの中に今選択さ
れ
たファイル名が入るようにし、ネクストボタンを一回押すたびに次のファイルが選ばれ、テキスト
ボックスにそのファイル名が表示されるようにしたいのです。一つ筒順番に上からファイルが選ば
れ
ていくようにしたいのですが、どうしてもうまくいきません。
　まず、配列の上から順番に選択されない。突然５番目のファイル名が選択される。
　　　そして、もう一度ネクストボタんを押しても次のファイルが選択されません。
Private Sub cmdNext_Click()

Dim TextFileName As String
Dim SoundDate(1,j) As String
Dim j As interger


　TextName = "inputp.txt"
Open TextName For Input As #1
j = 1
Do Until EOF(1)
   j=j+1

Input #1,SoundDate(1,j)
  Maxj = j

  close #1

txtFilenme.Text = SoundDate(1,j)
wDate = SoundDate(1,j)
txtFileName.Text = wDate
End Sub

この掲示板を利用する上で、気をつけて欲しいことは
管理人さんがまとめてくれてます。
←の[初めにお読み下さい]
をクリックして内容に目を通してください。
>３．上手な質問の仕方（投稿文の書き方）
>　　(2) 件名（タイトル）
>　　(6) 再現手順等
あたりを重点的に読んで下さい。

質問文に含まれているコードは、変数名・オブジェクト名・
ファイル名・データ型名がぐちゃぐちゃで、簡単なバグ取り
もされていません。それは自分ですべきことです。

この段階でどうすればいいのか分からないのであれば、
他人に掲示板で伝えることはできないと思ってください。
本屋に行って入門本を購入し、1ページ目から始める
ことをお勧めします。

やりたいことは別として、まずあなたのソースではコンパイルが通らないでしょう。

> Dim SoundDate(1,j) As String
このような宣言はできません。配列についてのヘルプを見直してください。

> 　TextName = "inputp.txt"
> Open TextName For Input As #1

ファイル番号を直接指定してファイルを開くのは、あまり良いとはいえません
できればFreeFile関数でファイル番号を取得しましょう。

>  Do Until EOF(1)
Do UntilまたはDo WhileはLoopで閉じなければなりません。
詳細はMSDNの「Do...Loop ステートメント」を参照して下さい。

>   Maxj = j
Maxjは宣言されていませんし、何処にも使われていません。
この変数の用途を見直した方がいいんじゃないでしょうか。

> txtFilenme.Text = SoundDate(1,j)
> wDate = SoundDate(1,j)
> txtFileName.Text = wDate
同じ理由でwDateも宣言されていませんし、なぜ使用するかも用途不明です。

txtFileName.Text =　SoundDate(1,j)
または
txtFileName.Text =　txtFilenme.Text
とすればwDateが必要な理由が今ひとつ不明です

とりあえず、文法的に指摘するのは、その位でしょうか。

あとは自分のやりたいことをフローチャートにでもしてみて
それをコードに変換していけば良いんじゃないでしょうか。
残念ながら、あなたのやりたい仕様が今ひとつ見えないのでアドバイスすることはできません。

というのは、「選択されたファイル」とか「次のファイル」という言葉が質問で出てきますが
そのファイルの説明がされていません。あなたは分かっていると思いますが、仕様をまったく
知らない第三者には、いきなり「選択されたファイル」とか言われても何が選択されたファイル
なのか分かりません。

あなたのコードでファイル名を指定しているのは
>TextName = "inputp.txt"
の行だけであり、「次のファイル」を指定しているところがコード中に見つかりません。
inputp.txtの中にファイル名のリストがあるのでしょうか？

あとタイトルは「はじめまして」とかではなく、質問の内容に添ったものにして下さい。

　投稿の形式などしっかりと把握していなくて申し訳ありませんでした。

　もう一度、勉強しなおしてから投稿させていただきたいと思います。

　アドバイスありがとうございました。

まず、
コンピュータ(というか、貴方の現状のプログラム)では、
input.txtが、どのフォルダに存在するかわかりません。

ヒントを言えば、ここのＨＰのサンプルでDirかんすうを探しましょう