avoids the error "Subscript out of range" : Array Function « Data Type « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Data Type
  3. Array Function

avoids the error "Subscript out of range"

 
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








Related examples in the same category

1.Using the Array Function
2.The LBound and UBound functions return whole numbers that indicate the lower bound and upper bound indices of an array.
3.Use IsArray function to check if a variable is an array