すいません何度も
教えてもらった通りにやってみたのですがうまくいきませんでした。
以下のように書いたのですが何か根本的なとこで間違ってるのでしょうか。


 Dim reader As New IO.StreamReader("C:\プログラミング\2.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
        Dim file As New IO.StreamReader("C:\プログラミング\1.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
        Dim Items(2250, 1) As String
        Dim Line As String = file.ReadLine()            '波長2とレファ値読み込み
        Dim a As String = reader.ReadLine                '波長1読み込み
        Dim b, d, f, y As Decimal
        Dim c, i As Integer

        '波長2とレファ値を読み込んで配列に入れる
        Do While Line IsNot Nothing


            Items(2250, 1) = Line

            Line = file.ReadLine

        Loop
       

        i = -1
        '波長1を読み込んで少数以下切り捨てて一致する波長2のレファ値を返す
        Do While a IsNot Nothing

            b = Val(a)
            c = Int(b)
            Do Until i > 2249
                i = i + 1

                If c = Items(i, 0) Then
                    d = Items(i, 1)

                End If
                If c + 1 = Items(i, 0) Then
                    f = Items(i, 1)
                End If
            Loop


            a = reader.ReadLine()
            y = (f - d) * (b - c) + d
            TextBox1.AppendText(y & vbCrLf)

        Loop

        


        reader.Close()
        file.Close()