Загрузить строки файла в ListBox

Option Explicit
Dim a As Long
Dim Arr(999) As String
 
Private Type Study
    Fio As String * 50
End Type
 
 
 
Private Sub Save_B_Click()
 
    On Error GoTo Err
    Open App.Path & "\binary.txt" For Binary As #1
 
        Dim str As String * 25
        Dim str1 As String * 25
        a = Text2.Text
        str = Text1.Text
        Put #1, , a
        Put #1, , str
        Close #1
        Exit Sub
        
Err:
    MsgBox Err.Description, vbCritical, "Ошибка!"
    Exit Sub
    
End Sub
 
Private Sub Upload_B_Click()
         On Error GoTo Er1
 
        Dim str As String * 25
 
        Text3.Text = ""
    Open App.Path & "\binary.txt" For Binary As #1
        Get #1, , a
        Get #1, , str
        Text3.Text = str & "  " & a
        
    Close #1
    Exit Sub
Er1:
    MsgBox Err.Description, vbCritical, "Ошибка!"
 
End Sub
 
Private Sub Save_R_Click()
     On Error GoTo Err
    Dim st1 As Study
    Dim st2 As Study
    Dim i As Integer
  
    st1.Fio = Text4.Text
 
    Label5.Caption = ""
    
    
    Open App.Path & "\3.txt" For Random As #1 Len = Len(st1)
       
        Dim n As Integer
        n = Text6.Text
        Put #1, n, st1
    Close #1
    List1.AddItem st1.Fio
          
    Exit Sub
Err:
    MsgBox Err.Description, vbCritical, "Ошибка!"
End Sub
 
 
Private Sub Upload_R_Click()
        Dim n As Integer
        Dim st1 As Study
        Label5.Caption = ""
        
        n = Text7.Text
        Open App.Path & "\3.txt" For Random As #1 Len = Len(st1)
        Get #1, n, st1
 
        Label5.Caption = Label5.Caption & st1.Fio
        
        Close #1
End Sub