Runtime Error - Overflow

[ThomasG08]

pLength is defined as Long in global variables
Array Access with Integer will cause overflow or not all elements to be accessible

stdVBA/src/stdArray.cls

Line 499 in 835bf4b

Public Property Get item(ByVal i As Integer) As Variant

stdVBA/src/stdArray.cls

Lines 507 to 512 in 835bf4b

	Public Property Set item(ByVal i As Integer, ByVal item As Object)
	set pArr(i) = item
	End Property
	Public Property Let item(ByVal i As Integer, ByVal item As Variant)
	pArr(i) = item
	End Property

stdVBA/src/stdArray.cls

Lines 517 to 519 in 835bf4b

	Public Sub PutItem(ByVal i As Integer, ByRef item As Variant)
	CopyVariant pArr(i), item
	End Sub

stdVBA/src/stdArray.cls

Line 525 in 835bf4b

Public Function indexOf(ByVal el As Variant, Optional ByVal start As Integer = 1) as integer

stdVBA/src/stdArray.cls

Line 597 in 835bf4b

Public Function includes(ByVal el As Variant, Optional ByVal startFrom As Integer = 1) As Boolean

stdVBA/src/stdArray.cls

Lines 629 to 630 in 835bf4b

	Dim i As Integer
	For i = 1 To pLength

stdVBA/src/stdArray.cls

Lines 647 to 648 in 835bf4b

	Dim i As Integer
	For i = 1 To pLength

stdVBA/src/stdArray.cls

Lines 661 to 662 in 835bf4b

	Dim i As Integer
	For i = 1 To pLength

stdVBA/src/stdArray.cls

Lines 708 to 709 in 835bf4b

	Dim i As Integer
	For i = 1 To pLength