For lngPosition = LBound(strNames) To UBound(strNames)
      mainForm.NameDisplay.Caption = strNames(lngPosition)
      mainForm.StockDisplay.Caption = intLevels(lngPosition)
    Next lngPosition

mainForm.StockDisplay.Caption = mainForm.StockDisplay.Caption & vbNewLine & intLevels(lngPosition)

    For lngPosition = LBound(strNames) To UBound(strNames)
      Code(lngPosition) = Left(strNames(lngPosition), 3) & Right(strNames(lngPosition), 3)
      mainForm.NameDisplay.Caption = mainForm.NameDisplay.Caption & vbNewLine & strNames(lngPosition)
      mainForm.CodeDisplay.Caption = mainForm.CodeDisplay.Caption & vbNewLine & Code(lngPosition)
      mainForm.StockDisplay.Caption = mainForm.StockDisplay.Caption & vbNewLine & intLevels(lngPosition)
    Next lngPosition

 Code(lngPosition) = Left(strNames(lngPosition), 3) & Right(strNames(lngPosition), 3)

' First we will store our variables
Global msg, strNameText As String   ' Instructional Message Box, Product Code and Name Text
Global blDimensioned As Boolean           ' Is the array dimensioned?
Global strStockText As Integer            ' To temporarily hold levels
Global lngPosition As Long                ' Counting
Global strNames() As String               ' Array of product names
Global Code() As String
Global intLevels() As Integer             ' Array of stock levels
 
' This function loads the required data into the system
Public Function CreateStock(ByVal sender As String, ByVal e As Integer)
  msg = MsgBox("Welcome to our Stock Control System. Enter the items first in the following input box, and press the cancel button when you are finished", vbOKOnly + vbInformation, "Stock Control System")
  ' The name has not yet been dimensioned
  blDimensioned = False
 
  Do
    ' Ask for a product name
    strNameText = InputBox("Please enter the poduct name:", "Stock Control System")
    strStockText = Val(InputBox("Please enter the inital stock level:", "Stock Control System"))
 
    If strNameText <> "" Then
      ' Has the array been dimensioned?
      If blDimensioned = True Then
        'Yes, so extend the array one element large than its current upper bound.
        'Without the "Preserve" keyword below, the previous elements in our array would be erased with the resizing
        ReDim Preserve strNames(0 To UBound(strNames) + 1) As String
        ReDim Preserve intLevels(0 To UBound(intLevels) + 1) As Integer
      Else
        'No, so dimension it and flag it as dimensioned.
        ReDim strNames(0 To 0) As String
        ReDim intLevels(0 To 0) As Integer
        blDimensioned = True
      End If
 
      'Add the product name to the last element in the array.
      strNames(UBound(strNames)) = strNameText
      intLevels(UBound(intLevels)) = strStockText
    End If
    Loop Until strNameText = ""
 
    For lngPosition = LBound(strNames) To UBound(strNames)
      Code(lngPosition) = Left(strNames(lngPosition), 3) & Right(strNames(lngPosition), 3)
      mainForm.NameDisplay.Caption = mainForm.NameDisplay.Caption & vbNewLine & strNames(lngPosition)
      mainForm.CodeDisplay.Caption = mainForm.CodeDisplay.Caption & vbNewLine & Code(lngPosition)
      mainForm.StockDisplay.Caption = mainForm.StockDisplay.Caption & vbNewLine & intLevels(lngPosition)
    Next lngPosition
End Function
 
' The following function ends the program
Public Function EndProgram(ByVal e As Integer)
  ' First of all we declare all our variables
  Dim msg As String
 
  ' Next we display a message box to the user
  msg = MsgBox("Are you sure you wish to exit?", vbYesNo + vbQuestion, "Exit Program?")
  e = 1
 
  ' The next statement will help to decide what to do with the user input
  If msg = vbYes Then
    End
  Else
    mainForm.Show
  End If
End Function
 
' The following function helps to search the array
Public Function Find(ByVal prodcode As String, ByVal msg As String)
  'prodcode = InputBox("Please enter the product to search for:", "System Finder")
  'msg = MsgBox("You searched for '" & prodcode & "'")
 
  MsgBox Code
 
End Function
 
Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean
  On Error GoTo LocalError
  If Not IsArray(arrSearch) Then Exit Function
  If Not IsNumeric(FindValue) Then FindValue = UCase(FindValue)
  IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
Exit Function
 
LocalError:
End Function

ReDim Code(LBound(strNames) To UBound(strNames)) As String

Dim MyVar(1 to 2) As String
MyVar(0) = "Whatever" 'throws error because there is no zero (0) element
MyVar(3) = "Another error because there is not element number 3"

Public Function Find(ByVal prodcode As String, ByRef StockCode() As String)
  mainForm.NameDisplay.Caption = ""
  mainForm.CodeDisplay.Caption = ""
  mainForm.StockDisplay.Caption = ""
 
  prodcode = InputBox("Please enter the product to search for:", "System Finder")
  MsgBox IsInArray(prodcode, StockCode())
 
  For lngPosition = LBound(strNames) To UBound(strNames)
    mainForm.NameDisplay.Caption = mainForm.NameDisplay.Caption & vbNewLine & strNames(lngPosition)
    mainForm.CodeDisplay.Caption = mainForm.CodeDisplay.Caption & vbNewLine & StockCode(lngPosition)
    mainForm.StockDisplay.Caption = mainForm.StockDisplay.Caption & vbNewLine & intLevels(lngPosition)
  Next lngPosition
End Function

Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean
  On Error GoTo LocalError
  If Not IsArray(arrSearch) Then Exit Function
  IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
Exit Function