Data Type VisualBasic Script

Sub Zoo1()
    Dim zoo(3) As String
    Dim i As Integer
    Dim response As String
    zoo(5) = ""
End Sub