Аналогия с функцией ВПР в Excel

[Vladimir!]

Как реализовать в VB функцию, подобную ВПР в Excel?
Конкретно нужно вот что. В БД (Access) хранятся числа:
1 столбец 2 столбец
1,5 1,325
2 1,456
2,5 1,564
Нам нужно найти чило из второго столбца, соответствующее первому.
Проблема в том, что в 1 столбце чила идут с интевалом 0,5, а нужно сделать так, чтобы пользователь мог ввести, к примеру, не 1,5 а 1,67 (такого чила, естественно нет в БД), но программа должна вычислить соответствующее ему значение, исходя из имеющихся данных (т.е. именно так, как это делает функция ВПР) [/b]

[Vladimir!]

Прошу прощения, некорректно таблица получилась

1 столбец 2 столбец
1,5________1,325
2__________1,456
2,5________1,564

[alibek]

Код: Выделить всё

Dim I As Long
For I = LBound(arrKeys) To UBound(arrarrKeys)
  If CurrentValue < arrKeys(I) Then Exit For
Next I