txtファイルの読み込みで変数毎に読み込みするには？ (ID:118739)

名前

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

本文 ↓txtファイルの内容です。 1月10日 タイトル 内容 1月11日 タイトル 内容 1月12日 タイトル 内容 上記のファイル内容を1行づつ1個1個の変数にいれていきたいです。 下記のソースではtext（伝言1）ボックス内に空白ができてタイトルが表示されません。エラーもでず、どこがわるいのか教えてください。 Option Explicit Dim 日付() As String Dim タイトル() As String Dim 内容() As String Dim ingDatN As Long Dim intFileNo As Integer Dim fileCSV As String Dim sBuff As String Private Sub Form_Load() 'ファイル読み込み fileCSV = App.Path If Right(fileCSV, 1) <> "\" Then fileCSV = fileCSV & "\" sBuff = Dir$(fileCSV & "伝言.csv") If Len(sBuff) > 0 Then fileCSV = fileCSV & sBuff Else Exit Sub End If ingDatN = 0 intFileNo = FreeFile Open fileCSV For Input As #intFileNo Do Until EOF(intFileNo) ingDatN = ingDatN + 1 ReDim Preserve 日付(ingDatN) As String ReDim Preserve タイトル(ingDatN) As String ReDim Preserve 内容(ingDatN) As String Input #intFileNo, 日付(ingDatN), タイトル(ingDatN), 内容(ingDatN) Loop Close #intFileNo 伝言1.Text = タイトル(1) 伝言2.text= タイトル(2) End Sub