как записать инфу из целиком считанного файла в структуру

Существует файл следующей структуры: одна запись (2 байта – признаки, 4 байта) – информация, порядка 4000 записей. Получаю и разбираю одну запись примерно так:
Type recTI
skeep As Integer
value As Single
End Type
……………………
Open F_Name For Random Access Read As #F_Number Len = Len(Read_TI)
…………………………………
a = Read_One_TI(F_Number, Адреса_ТИ(Nomer_TI))
……………………………………
Function Read_One_TI(F_Number As Byte, N_TI As Integer) As Single
Dim Read_TI As recTI
b = N_TI
If Not EOF(F_Number) Then
Get #F_Number, N_TI, Read_TI
Read_One_TI = Read_TI.value
Else
End If
End Function

Во-общем, получить и разобрать файл по одной записи нет проблем. Однако так как доступ к файлу по сети, то чтение по одной записи 4000 записей занимает много времени (мне так кажется).
Нельзя ли прочесть весь файл целиком и каким либо образом совместить его с массивом пользовательских данных, не используя строчные функции типа AscB и MidB для разбора и преобразования информации по байтам и не используя API функцию hmemcpy копирования из памяти в память?
Другими словами Есть ли какой способ скопировать всю строку по ссылке (указателю) на начало структуры (массива пользовательских данных) с естественно несовпадающим типом, но органичкески описывающей организацию данных в исходном файле, то есть автоматически разобрать сторку по нужным кускам не задумываясь над преобразованием типов?
Спасибо.