Run-Time error 13: type Mismatch Help!

Hi everyone,

Thanks in advance for any help someone can give me. I am having an error that I can't quite get a handle on. I am getting a run time 13 error on this code:

Option Explicit
Sub test1()
Dim FirstResultASIN As String
Dim ParentSKU As String
Dim HarvestedASIN1Match As Boolean
Dim ProductData(3) As String
Dim productdata2 As String
Dim productdata3 As String



FirstResultASIN = "test"
ParentSKU = "test"
ProductData(2) = "notest"
ProductData(3) = "notest"


If FirstResultASIN = ParentSKU Then
      HarvestedASIN1Match = True
        If FirstResultASIN = ProductData(2) Or ProductData(3) Then
            HarvestedASIN1Match = True
        Else
            HarvestedASIN1Match = False
        End If
      Else: HarvestedASIN1Match = False
End If

Debug.Print HarvestedASIN1Match

End Sub

It is erroring out on If FirstResultASIN = ProductData(2) Or ProductData(3) Then.

I just pulled the code out to test it as it is part of a much bigger problem. Any ideas on the problem?

Thanks again for your time.