配列１要素に一行分の文字列を入れるには？ (ID:88339)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 ＶＢ3日目初心者さまとほとんど同じ内容の質問です。 まずは下記のコードをご覧ください。 Private Sub cmd_Fileread_Click() '変数の宣言 Dim sData As String Dim strRecord(1 To 20) As String Dim TargetRec As Integer '既存のファイルを開きます。 Open "C:\File\DB.txt" For Input As #1 'ファイルからデータを読み出します。 lst_Text.Clear TargetRec = 1 Do Until EOF(1) Line Input #1, sData If sData = "" Then Exit Do End If If Trim(sData) = "" Then Exit Do End If 'lst_Text.AddItem sData strRecord(TargetRec) = sData TargetRec = TargetRec + 1 If TargetRec > 20 Then Exit Do End If Loop 'ファイルを閉じます。 Close #1 'カウンタとして使用する変数 Dim i As Integer TargetRec = 0 For i = 1 To 20 Step 1 TargetRec = TargetRec + 1 Next i lst_Text.AddItem strRecord() ←ここです ＾＾＾＾＾＾＾＾＾＾＾＾＾＾ 'イベントを終了します。 Exit Sub 'エラー処理を行います。 FileReadError: MsgBox "ファイルが読み込めません" End Sub strRecord()の部分をFor文の機能を使って20行ちゃんと表示させろという 指示なんですが、どうしてもうまくいきません。 どなたかご教示いただけないでしょうか？