Sub Zoo2()
Dim zoo(3) As String
Dim i As Integer
Dim response As String
i = 1
Do While i >= LBound(zoo) And i <= UBound(zoo)
response = InputBox("Enter a name of animal:")
If response = "" Then Exit Sub
zoo(i) = response
i = i + 1
Loop
For i = LBound(zoo) To UBound(zoo)
MsgBox zoo(i)
Next
End Sub