Вывести результат в отдельный файл - VBA

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

Создать файл, содержащий сведения об игрушках. Информация содержит название, страна-производитель, стоимость, количество, возрастные границы. Вычислить максимальную стоимость мяча для детей от 2 до 7 лет и распечатать сведения о нем (них, если более 1 игрушки). Вот что я сделал, как дальше.... Спасибо!

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Type Toys
 Name As String * 50
 Country As String * 35
 Cost As Integer
 Amount As Integer
 Age As Integer
End Type
 
Sub StructWrite()
Dim i As Integer, Count As Integer
Dim Record As Toys
Count = InputBox("Сколько видов игрушек следует ввести? ")
Open Application.ActiveWorkbook.Path & "\toys.txt" For Random As #1
For i = 1 To Count
 Record.Name = InputBox("Введите название игрушки: ")
 Record.Country = InputBox("Введите страну - производителя игрушек: ")
 Record.Cost = InputBox("Введите стоимость игрушек: ")
 Record.Amount = InputBox("Введите количество игрушек: ")
 Record.Age = InputBox("Введите возрастные ограничения для игрушки: ")
 Put #1, i, Record
Next i
Close #1
End Sub

Решение задачи: «Вывести результат в отдельный файл»

textual
                            Листинг программы 
                        
      Open Application.ActiveWorkbook.Path & "\besttoys.txt" For Random As #3
      Put #3, , bestToys
      Close #3