Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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