Задача с Private Type - VB

Private Type Worker
FirstName As String * 20
LastName As String * 20
MiddleNAme As String * 20
Position As String
Time As Integer
End Type
 
Sub CreateRecord()
Const count = 1
Dim MyWorker(1 To count) As Worker
For i = 1 To count
MyWorker(i).FirstName = InputBox("Введите фамилию:")
MyWorker(i).LastName = InputBox("Введите имя:")
MyWorker(i).MiddleNAme = InputBox("Введите отчество:")
MyWorker(i).Position = InputBox("Введите должность:")
MyWorker(i).Time = InputBox("Введите кол-во отработанных часов:")
Next i
For i = 1 To count
Cells(i, 1) = MyWorker(i).FirstName
Cells(i, 2) = MyWorker(i).LastName
Cells(i, 3) = MyWorker(i).MiddleNAme
Cells(i, 4) = MyWorker(i).Position
Cells(i, 5) = MyWorker(i).Time
Next i
End Sub
Sub Output()
Const count = 1
Dim MyWorker(1 To count) As Worker
For i = 1 To count
MyWorker(i).FirstName = InputBox("Введите фамилию:")
End Sub