VB初心者友の会 - Q&A掲示板過去ログ

こんにちは。以下のようなｙ座標だけのデータをｘ,ｙ座標になるようにして、
それぞれの値を配列に格納するプログラムを作成したのですが、最初の一行目
だけが変換されて二行目以降の値が61・62・63とそのままの値になってしまうのです。
どの部分が間違っているのかどなたかご指摘をお願いします。

--------------------------------------------------------------------
もとのデータ    ⇒  (8192行目まで20.5000から0.0025ずつ減算していく)     
66           　 ⇒           20.4975,66　
61              ⇒        　 20.4950,61 
62          　  ⇒   　      20.4925,62 
34              ⇒           20,4900,34 
↓　                            ↓ 
[EOF]　　　　　　　　　　　　[EOF]　　
--------------------------------------------------------------------
Dim j As Long
Dim Count As Long
Dim Cut As Long
Dim Buf As String
Dim XData As String
Dim BufData() As String

Redim Preserve TSpc.Data(P90) As Single  'TSpc.Data配列をP90分確保
ReDim Preserve BufData(P90) As String    'BufData配列をP90分確保

Open FileName For Input As #1      '渡されたファイルをオープン
Do While Not EOF(1)              'ファイルの終わり(EOF)までループ
   Line Input #1, Buf             'ファイルから１行分読み込みBufへ格納
        j = j + 1
        XData = 20.5 - 0.0025 * j
        Buf = XData + Chr(44) + Buf
         
        Cut = InStr(1, Buf, ",", vbTextCompare)  'カンマ(,)の位置を検索
        BufData(Count) = Left(Buf, Cut - 1)      'カンマの前まで切り出しBufDataへ格納
      
        TSpc.Data(Count) = CSng(Right(Buf, Len(Buf) - Cut))
        'カンマ以降の文字列をSingle型に変換してTspc.Dataへ格納
 
        Count = Count + 1
        'カウンタを１つ進める

    Loop            'ループの終了
  Close #1          'ファイルのクローズ