Поиск строки или числа

[Fridx]

Dim SX As Single
dim X as Long
Dim BUF As String
Dim NT1 As String
Dim NTX As String * 4

Open CommonDialog1.FileName For Binary As #6 Len = 1
BUF = Input(LOF(6), #6)
SX = Val(textX.Text)

For X = 1 To LOF(6)
NT1 = "1234"
CopyMemory ByVal NT1, SX, 4
NTX = Mid(BUF, X, 4)
If NT1 = NTX Then
Text3 = "OK"
End If
Next X

Вот так я ищу число Single. Как бы сделать диапазон поиска?
Т.е. при поиске например числа 1755.47 будут находиться все числа, которые меньше 1755.47 +10 и больше 1755.47 - 10.
В условии у меня сравниваются две строки (NT1 = NTX). Конечно можно с помощью CopyMemory перевести их в число, а потом задать диапазон, но так код усложняется на порядок.

[Viper]

Возникает ощущение, что автор в процессе конструктивного диалога запутался сам и запутал остальных...

По сути последнего вопроса. Если тебе нужен поиск в определенном диапазоне, то заведомо придется конвертировать проверяемое значение в Single.

Возвращаясь же к сути вопроса топика. Если в файле только числа типа Single друг за другом расположены, то стоит считывать содержимое файла открытого для бинарного доступа в массив Single соответствующей длины. Если же формат файла более сложен и известно что где-то в файле имеется (или не имеется) некое значение типа Single, то стоит считать содержимое файла в массив Byte, а затем при помощи CopyMemory конвертировать последовательные 4 байта в Single и сравнивать их с необходимым значением (или диапазоном значений)