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

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
 
Sub StructRead()
Dim MiddleAmount As Double, Position As Integer
Dim ReadRecord As Toys
Position = 1
MiddleAmount = 0
Open Application.ActiveWorkbook.Path & "\toys.txt" For Random As #1
Do
 Get #1, Position, ReadRecord
 Position = Position + 1
 MiddleAmount = MiddleAmount + ReadRecord.Amount
Loop Until EOF(1)
MiddleAmount = Fix(MiddleAmount / (Position - 1))
MsgBox ("Среднее количество игрушек: " & MiddleAmount)
Position = 1
Open Application.ActiveWorkbook.Path & "\selecttoys.txt" For Append As #2
Do
 Get #1, Position, ReadRecord
 Position = Position + 1
 If ReadRecord.Amount > MiddleAmount Then
  Print #2, "Название: "; ReadRecord.Name;
  Print #2, "Страна-производитель: "; ReadRecord.Country;
  Print #2, "Стоимость: "; ReadRecord.Cost;
  Print #2, "Количество: "; ReadRecord.Amount;
  Print #2, "Возрастные ограничение: "; ReadRecord.Age;
 End If
Loop Until EOF(1)
Close #1
Close #2
End Sub