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

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

VBA / Excel / Access / Word » Data Type » 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

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.