Переделать код с Delphi на VB

Формулировка задачи:

Добрый день. Написал код на delphi:

                    Листинг программы
                
 
                        
                          
                    
type tbook=record
x:array [1..4] of real;
y:real;
c:array [1..5] of real;
z1:array [1..4] of real;
z2:array [1..4] of real;
z3:array [1..4] of real;
end;
var
book:tbook;
f:file of tbook;
i:integer;
begin
 
    AssignFile(F, 'C:\Program Files\ProgramVr 2.0\books.dat'); { связать с указателем }
Reset(F);        { открыть для чтения }
Read(F, Book);       { чтение }

Пробую переиначить на basic:

                    Листинг программы
                
 
                        
                          
                    
type tbook
Dim x(5) as double
Dim y as double
Dim c(5) as double
Dim z1(4) as double
Dim z2(4) as double
Dim z3(4) as double
end type
Public book As tbook

Осталось одно: открыть файл, оттуда данные перекинуть в запись tbook. Объясните, пожалуйста, как это сделать.

Решение задачи: «Переделать код с Delphi на VB»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
Dim i As Integer, MyChar As Byte, MyLocation, MyLine
Open App.Path & "\books.dat" For Binary As #1
Do While MyLocation < LOF(1) ' Цикл до конца файла
     MyLocation = Loc(1) ' Определяем текущую позицию внутри файла
Get #1, , MyChar
     MyLine = MyLine + (Str(MyChar))
Loop
Close #1
 Text1.Text = MyLine
End Sub