Subscript out of range

[akhmadsabri]

Hi guys,

So I am new to VBA.
I created a function to add 2 arrays and return a new array with added values.
I count the length of the arrays and resize the new array to the size of the passed arrays.
However I got subscript out of range error on the line "addedArray(k) = array1(k) + array2(k)"
When I hover over k and myCount1, it shows both = 4.
I even tried to resize addedArray to myCount+1 bit still get the same error.
Can anyone please help me understand why I got the error?

Here is the code full code:

Option Base 1
Dim emailAddress As String
Dim addedArray As Variant
Dim value3 As String
Dim myCount1 As Integer
Dim myCount2 As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim size As Integer

Function addProducts(array1 As Variant, array2 As Variant)

'Count element of array1
myCount1 = 1
For i = LBound(array1) To UBound(array1)
myCount1 = myCount1 + 1
Next

'Count element of array2
myCount2 = 1
For j = LBound(array1) To UBound(array1)
myCount2 = myCount2 + 1
Next


'added values of array if they have the same length
If myCount1 = myCount2 Then

'resize addedArray to the size of myCount1
ReDim addedArray(myCount1)
For k = 1 To myCount1
addedArray(k) = array1(k) + array2(k)
Next

addProducts = addedArray

ElseIf myCount1 <> myCount2 Then
MsgBox ("Arrays hast to be the same lengths")
End If

End Function

 

[akhmadsabri]

so I changed myCount1 and myCount2 to start at 0, and it seems to work fine.
I thought since I used option based 1, i need to start counting from 1 instead of 0

 

[JoeMo]

What are the values of Ubound(array1) and Ubound(array2)? Same question for the Lbound values.

Is red font below a typo in your post or ....?

'Count element of array2
myCount2 = 1
For j = LBound(array1) To UBound(array1)
myCount2 = myCount2 + 1
Next

 

[akhmadsabri]

I can't see the value of them unless i got the error. But array1 contains (1,2,3) and array2 contains (3,2,1).

Yes the red one was a typo since I copied and pasted codes.