すいません　いろいろ教えてもらった結果
 Dim reader As New IO.StreamReader("C:\プログラミング\データ.csv", System.Text.Encoding.GetEncoding("Shift-JIS"))
        Dim Items() As String                   'csvの各項目を表す関数
        Dim Line As String = reader.ReadLine()  'CSVの一行
        Dim a, b, c As String                   '波長1,波長2,レファ値 文字列
        Dim d, f, g As Decimal                  '波長1,波長2,レファ値　数値
        Dim h As Integer                        '波長1の少数以下切り捨て
        Dim i, j As Decimal
        Do While Line IsNot Nothing
            Items = Line.Split(",")             '一行を, (カンマ)で区切って項目ごとに分解

            a = Items(0)                        '波長1取得
            d = Val(a)                          '波長1を数値に変換
            b = Items(1)                        '波長2取得
            f = Val(b)                          '波長2を数値に変換
            c = Items(2)                        'レファ値取得
            g = Val(c)                          'レファ値を数値に変換
            h = Int(d)                          '波長1の少数以下切り捨てた値

            If h = f Then
                i = g

            End If

            If h + 1 = f Then
                j = g

            End If

            TextBox1.AppendText((j - i) * (f - h) + i & vbCrLf)
            Line = reader.ReadLine              '次の行を読み込む。
        Loop
        
        reader.Close()
という風に書いたんですけど結果は駄目だったです。
(ｈ+1)がｆと一致するときその対応するｇを返すやり方がよくわかりません
教えていただけるとありがたいです。