• txtResult.Clear()
• person.name.firstName = InputBox("First
Name:")
• person.name.lastName = InputBox("Second
Name:")
• numYears = CInt(InputBox("Number
of years " & _
•
"completed:"))
• ReDim
person.credits(numYears)
• For i = 1 To numYears
• person.credits(i) = CInt(InputBox("Credits
in yr "_
• & i))
• Next
• DetermineStatus(person)
•End
Sub